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In  October  1986,  the  Naval  Postgraduate  School  was  directed 
to  centralize  the  accounting  and  control  of  minor  property 
(approximately  t>0,000  items)  and  to  locate  that  function  in  the 
luppiy  Department.  The  magnitude  of  this  undertaking  suggested 
that  some  sort  of  automated  system  be  employed  to  assist  in  the 
task . 


The  objective  of  this  study  was  to  implement  a  prototype 
automated  system  to  support  tne  control  and  accounting  of  both 
plant  and  minor  property  at  the  Naval  postgraduate  School. 

The  effort  was  based  on  a  Requirements  Definition  and  System 
Specif ication  set  forth  in  a  thesis  by  Ross  and  Smith  in  March 
1987.  The  study  includes  a  description  of  the  implementation 
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A.  BACKGROUND 

Virtually  mry  0.1.  Wavy  shore 


physical  aasats  that  ara  not 


owns  a 


whan  usad — dasks 


typewriters,  fila  cabinets,  tool  kits,  calculators,  ate. 

Sosm  assats  ara  relatively  inexpensive  (for  example,  a  dask 
lamp) ,  while  others  have  a  high  dollar  value  (for  example,  a 


mini-computer  or  spaeialisad  test  equipment ) .  In  Navy 


parlance  these  assats  ara  known  as  "minor  property"  and 
"plant  property"  respectively.  The  distinction  between  the 
two  is  aarked  by  dollar  value.  Generally  speaking  minor 
property  costs  less  than  $5,000  and  plant  property  more  than 
$5,000  [MAVCONPT  MANUAL,  VOL  3,  Chapter  6].  Navy  regulations 
and  good  management  practice  dictate  that  these  assets  be 
controlled  and  accounted  for  from  the  time  that  they  are 
ordered  by  the  command  until  they  are  disposed  of  or 
replaced. 

At  the  Naval  Postgraduate  Ichool  (NP1) ,  plant  property 
(about  4,500  items)  is  controlled  centrally  by  the  school's 
$upply  Department,  while  minor  property  (as  many  as  60,000 
items)  is  controlled  at  the  academic  department  level.  In 
both  cases,  control  is  performed  manually  using  a  variety  of 
Navy  and  U.  $.  government  forms  and  procedures.  [Ross  and 
$nith,  19$7 ,  pp.  16-25] 
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Zi  Oetohw  19U,  Iff  was  directed  to  eMtraliM  the 
•eeowtlaf  of  miner  property  and  to  locoto  that  function  in 
tho  Supply  Pop or foot.  Tho  magnitude  of  thio  undertaking,  •• 
wall  oo  eoMOB  mmo,  suggested  that  mm  sort  of  automation 
ho  employed  to  ooaiot  in  tho  took.  Too  students  in  tho 
Ioforootloo  Systems  curriculum  (kooo  mod  Smith)  took  on  tho 
problom  oo  o  thooio  of fort.  Tho  pools  of  thair  projoct  were 
to  ossist  tho  command  in  complying  with  tho  contralizatlon 
directive,  omd  to  holp  improve  proporty  administration  in 
pomorol.  Ross  omd  Smith  concluded  that  an  automatod  data 
boso  manapomont  systom  would  accomplish  both  objectives  [Ross 
and  Smith.  1SS7,  Chapter  3].  Tho  koss-Smith  thesis  provided 
a  detailed  system  specification,  initial  data  dictionary, 
recommended  file  structures,  and  hardware  specification  tor  a 
database  manapomont  systom  that  would  fully  automata  both 
plant  and  minor  proporty  administration. 

Tho  intent  of  tho  effort  discussed  in  this  thesis  is  to 
AlW H f  Ttht  the  recommendations  of  the  Ross-Smith  study  in  a 
prototype  syston.  Such  a  prototype  could  be  used  to  verify 
Ross's  and  Smith's  conclusions  and  refine  user  requirements 
further.  A  prototype  methodology  was  elected  due  to  the 
sheer  magnitude  of  the  task,  the  relatively  short  time 
available,  and  user  unfamiliarity  with  computer  technology. 
Initial  prototype  tools  included  sample  screens  and  sample 
functions  (reports,  sorts,  etc.),  followed  by  actual  coding 
of  selected  modules  of  the  system. 


It  should  b«  notsd  at  ths  outsst  that  familiarity  with 
toss's  and  Smith's  rsssareh  is  essential  for  any  follow-on 
rsssareh  or  programming  affort.  Such  familiarity  also  will 
ba  halpful  to  ths  casual  raadar  of  this  document,  but  is  not 
critical. 

S.  OBJECTIVES 

Ths  objectives  of  our  affort  are: 

1.  To  assist  EPS  in  masting  ths  requirements  of  the 
"centralisation"  directive. 

2.  To  implement  a  practical  prototype  system  to 
support  the  EPS  Supply  Department  in  the 
administration  of  plant  and  minor  property. 

3.  To  verify  that  the  Ross-Smith  specification  is  both 
complete  and  accurate;  i.e.,  that  it  covers  all  user 
requirements  and  that  requirements  are  specified 
correctly. 

4.  To  investigate  the  use  of  the  application  package 
dBase  III  Plus  with  a  very  complex  and  potentially  very 

large  data  base. 

C.  APPLICABILITY 

The  basic  tasks  of  the  Key-Whitehouse  effort  were  to 
verify  the  findings  of  Ross  and  Smith,  and  to  implement  a 
prototype  of  an  automated  system  which  assists  in  accounting 
and  controlling  plant  and  minor  property  at  the  Naval 
Postgraduate  School. 

The  recommendations  made  by  Ross  and  Smith,  combined  with 
the  results  of  this  present  effort,  should  be  applicable 
throughout  the  U.  S.  Navy,  as  regulations  for  handling  plant 
and  minor  Property  are  largely  standardized. 


D.  RESEARCH  QUESTIONS 


The  following  questions  hews  been  addressed  in  this 
study.  Conclusions  resulting  fron  this  study  ere  included  in 
Chapter  V. 


1.  How  should  an  autonated  property  accounting 
system  be  designed  in  order  to  avoid  data 
redundancy  and  to  naxinize  performance? 

2.  What  design  characteristics  can  be  included  to 
minimize  insertion  and  deletion  anomalies? 

3.  What  error  checks  are  needed  in  a  system  that 
will  be  operated  by  personnel  at  the  clerk/typist 
level,  and  how  can  they  be  implemented  when 
programming  in  the  dBase  III  Plus  data  base 
management  system? 

4.  Can  an  on-line  data  dictionary  be  designed  that 
will  support  both  the  user  and  a  follow-on 
programmer? 

5.  Is  dBaselll  Plus  adequate  for  a  data  base  with 
•  65,000  records  and  that  is  expected  to  grow 

as  large  as  130,000? 

6.  Is  such  an  accounting  system  applicable  for 
Navy-wide  use? 


E.  METHODOLOGY 

A  traditional  system  software  development  cycle  typically 
consists  of  some  variation  of  these  generic  phases: 
requirements  definition,  design,  coding,  testing,  delivery, 
and  maintenance.  In  this  traditional  cycle  there  is  often  a 
significant  time  delay  between  the  initial  requirements 
analysis  and  the  delivery  of  the  operational  system. 
Unfortunately,  after  requirements  definition  is  finished,  it 
is  not  unusual  for  a  designer  or  programmer  to  consult  the 
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F. 


OF 


It 


TIm  wtiiitf  of  the  tkMia  lo  organised  chronologically. 
It  describes  oh  to  oor  of  fort  bog  on.  based  on  tho  too  s  -  Sait  h 
work,  followed  by  ohat  woo  doao  for  thio  study,  whoro  tho 
development  woo  stopped,  sad  what  roaaino  to  bo  dono. 

Chsgtor  II  doocriboo  tho  environment  for  which  rososrch 
woo  gtrf or— d .  Ravy  sad  WPS  roguiroaoats  to  diocuoood 
rogardlag  eoatralisatioa  of  ainor  property  adainiotration  and 
autoauitod  systoao.  Tho  application  environaent,  initial 
aaawagtioao  sad  ooaotraiato,  and  cluuractoriotics  of  tho 
orgoaisatioaal  environment  to  than  doocribod.  Finally,  a 
brief  narrative  description  of  tho  equipment  acquisition  and 
diapooition  process  is  provided. 

Chapter  III  provides  prototyping  strategy,  details  of 

data  dictionary  and  data  base  design,  and  a  discussion  of 

% 

data  integrity  issues  and  tho  role  of  tho  data  base 
administrator,  prticulTly  as  they  apply  to  tho  Material 
Control  Division  (MCD)  of  tho  Supply  Deprtaent. 

Chapter  It  covers  tho  progressing  inplonsntation  and 
includes  hsirTchy  chrts,  user  interfaces,  and  sample 
queries  with  responses. 

Chapter  V  deals  with  what  r swains  to  bo  accoaplishod 
before  tho  systsa  can  bo  properly  called  operational.  It 
covers  both  general  and  specific  tasks  for  the  user  and 
fellow  on  prograaaers.  Chapter  V  concludes  with  consents 
regarding  the  original  resoTch  questions. 
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ZZ.  TO  H>l  PROPERTY  ACCOUNTING  EMVIROMMIMT 


A.  TO  PROPIRTY  ACQUISITION  FROCKS 8  AT  WPS 

The  Acquisition  procsss  st  KPS  consists  of  thro#  phases. 
Those  occur  chronologically,  prior  to  a  piece  of  equipment 
being  considered  "in  hand  and  on  file".  The  goal  of  the 
process  is  to  coaplete  a  form  DD  1342  Property  Record  (Figure 
2.1).  The  following  s unwary  of  the  acquisition  phases 
include  the  corresponding  government  form  used  in  that  phase, 
noted  in  parentheses  (see  Ross-Smith  Appendix  P  for  detailed 
description  of  forms) . 

The  first  phase  begins  when  MCD  is  notified  that  a  piece 
of  equipment  has  been  ordered.  Only  a  few  facts  are  known  at 
this  point:  the  Naval  Identification  (NZD)  number  (when 
assigned),  manufacturer,  and  model  number  (form  Nf  1342). 

The  second  phase  begins  upon  arrival  of  the  equipment.  A  few 
additional  pieces  of  data  now  become  available:  e.g., 
consignor,  date  received,  requisition  number  (form  WS 
1342(+)).  For  the  third  phase,  the  piece  of  equipment  is 
sent  to  the  destination  department.  There  the  equipment  is 
unpacked,  and  the  final  missing  pieces  of  data  can  be 
provided  to  MCD:  manufacturer's  serial  number,  location, 
power  code,  sise,  etc.  (fora  DD  1342). 

Once  completed,  MCD 'a  files  of  the  DD  1342s  comprise  the 
present  database  that  is  queried  for  the  types  of  questions 


»m  la  Metiea  D.  below.  This  procsss  is  currently  carried 
out  (or  pleat  property  oaly  sad  is  essentially  a  aeauel 
procese  performed  by  a  single  individual  ia  MCD. 

B.  TKB  PIOPRTy  DXSPOSZTZOV  PBOCBSS  AT  VPS 

The  disposition  process  for  plant  Property  is  somewhat 
more  complicated  than  the  acquisition  process.  There  are 
five  types  of  dispositions: 

-  Industrial  Plant  Bquipawnt  (ZPB) 

-  Automatic  Date  Processing  BquipsMnt  (AOPB) 

-  Transfers 

-  Trade-ins 

-  Local  dispositions 

Bach  type  is  handled  in  a  slightly  different  manner. 
Differences  include  (1)  ehst  organisations  are  notified  that 
a  particular  piece  of  equipment  is  available  for 
reutilisatioa.  and  (3)  the  aawunt  of  time  tint  a  piece  of 
equipamt  is  retained  before  local  disposition  is  authorised. 

Both  the  ZPB  and  the  ADPB  items  identified  as  excess 
items  may  be  held  as  long  as  301  days,  according  to  the 
directions  issued  by  the  Defense  industrial  Plant  Bquipatent 
Center  (DXPBC)  and  the  Defease  Automated  Beaources 
Information  Center  (DABZC) .  During  that  tine  either  of  these 
organisations  may  issue  transfer  instructions.  Should  this 
be  dome,  the  holding  organisation,  VPS,  transfers  the 
equipment  to  the  organisation  designated  in  the  instructions. 


Ihn  the  plant  Property  Administration  Office  at  NFS  receives 
verification  that  the  organisation  to  which  the  iten  has  been 
shipped  has  received  the  shipment,  the  equipment  is  removed 
from  the  WPS  accounting  records. 

Trade-in  dispositions  occur  when  a  department  actually 
trades  in  an  old  piece  of  equipment  for  a  new  one.  The 
proper  organisations  again  nust  be  notified  and  the  iten  is 
removed  from  the  records.  Local  dispositions  include,  for 
the  most  part,  items  that  do  not  fit  into  one  of  the  other 
four  categories.  After  the  appropriate  time  has  elapsed,  the 
item  is  taken  to  Port  Ord's  Defense  Reutilisation  Management. 
Office  for  processing.  When  the  equipment  has  been  accepted 
there  it  may  be  expunged  from  NFS's  records. 

Minor  property  does  not  have  to  be  reported  to  any  of 
the  above  organisations  and  thus  does  not  as  yet  have  a 
formal  disposition  process.  However,  it  is  expected  that 
minor  property  will  be  made  available  for  local  reutilization 
for  a  21-day  period.  At  the  end  of  that  time  it  will  be 
disposed  of  locally. 

C.  FUNCTIONAL  RSQUIMNKWTS 

The  purpose  of  the  Rose-Smith  study  was  to  produce  design 
specifications  for  an  automated  system  that  would  support  the 
centralised  management  and  control  of  plant  and  minor 
property  at  NFS.  Such  a  system  must  meet  the  functional 
needs  of  MCD  while  also  satisfying  requirements  of  higher 


authority  u  stated  in  NAVCOMPT  Manual  Vol  3  Chapter  6.  In 
general  terns  the  new  systen  nust: 

1.  Create  auditable  records  on  ell  acquisitions, 
disposals,  and  transfers. 

2.  Support  preparation  of  forn  OD  1342,  DOD 
Property  Record. 

3.  Support  the  preparation  of  a  plant  or  ninor 
property  report  in  accordance  with  NAVCOMPT  274. 

4.  Provide  inventory  listings  by  departnent,  iten, 
inventory  date,  or  other  selected  sort  criteria. 

5.  Coapare  inventory  listings  fron  departaents  to 
deteraine  lost,  aissing,  or  stolen  property. 

4.  Prevent  unauthorised  access  to  the  database 
[Ross,  19S7,  pp.  74-75] . 

Functional  requi resent a  as  stated  by  Ross  and  Saith  are 
accurate,  cosplsta,  and  still  valid  as  of  this  writing. 

D.  CRARACTSRISTZCS  OF  TKK  APPLICATION  KNVIRONMKMT 

The  application  environaent  can  be  characterised  by 
describing  typical  queries,  data  base  voluae,  and  update  and 
retrieval  activity;  a  brief  suaaary  of  each  follows. 


* ¥T- rn Ti l  I  *!  ■  M  1  .  !• 


A  wide  variety  of  data  base  queries  aust  be  supported 
by  the  proposed  autoaated  systea.  These  include  such 

questions  as: 

-What  plant/ainor  property  does  the  Adainistrative 
Science  Departaent  hold? 

-Where  is  (soae  particular)  piece  of 
plant/ainor  property  located? 
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-What  dollar  value  in  minor  proparty  is  held 
by  the  Electrical  Engineering  Department? 

-Where  is  all  of  the  XYZ  Corp.  equipment 
( e . g . ,  for  maintenance ) ? 

-What  dollar  value  in  plant/minor  property  was 
lost  when  Root  Hall  burned  to  the  ground? 

-How  big  is  a  certain  piece  of  plant  property 
(e.g.,  for  shipment)? 

2.  Expected  Data  Base  Volume 

The  current  inventory  of  NPS  plant  property  includes 
approximately  4500  items.  The  minor  property  inventory  may 
be  as  high  as  60,000  items  if  all  potential  items  are 
counted.  In  view  of  the  existing  inventory  size  and  the 
limited  manpower  available,  once  an  automated  data  base  is 
available,  the  NPS  plan  is  to  enter  new  items  into  the 
database  as  they  arrive.  As  time  permits,  existing  items 
will  be  "back-entered". 

Data  base  volume  will  be  affected  significantly  by 
management  decree  determining  what  items  will  be  included. 

The  cost  of  accounting  and  control  for  every  hammer, 
screwdriver,  and  pair  of  scissors  would  outweigh  the  benefit 
by  an  order  of  magnitude.  The  exact  items  to  be  included  in 
the  data  base  have  not  been  determined.  Where  MCD  draws  its 
lines  will  largely  determine  the  volume  of  data  to  be  handled 
and  the  number  of  records  in  the  data  base. 


3.  Relative  Update  and  Retrieval  Activity 

The  current  property  accounting  system  is  essentially 
manual  and  the  NPS  Supply  Department  has  historically  dealt 
only  with  plant  property  (minor  property  being  accounted  for 
at  the  department  level) .  Thus  an  estimate  of  the  update  and 
retrieval  activity  for  the  data  base  would  require  a 
department-by-department  survey.  Even  if  such  an  figure  were 
presently  available,  it  would  likely  be  inaccurate  with 
respect  to  the  future.  The  power  of  an  automated  data  base 
and  the  ease  of  automated  retrieval  will  almost  certainly 
generate  a  higher  level  of  data  base  access  activity  than  is 
currently  experienced.  In  addition,  the  factors  mentioned  in 
the  Expected  Data  Base  Volume  section  will  also  affect  the 
update  and  retrieval  frequency. 

If  however,  operations  continue  to  be  conducted  as 
they  are  at  present,  the  ratio  of  update  transactions  to 
query  transactions  will  be  about  70/30,  respectively. 

Updates  would  probably  be  performed  twice  daily  in  "batches", 
with  queries  distributed  randomly  throughout  the  day. 


E.  CHARACTERISTICS  OF  THE  ORGANIZATIONAL  ENVIRONMENT  I 

The  organizational  situation  in  the  NPS  Supply  Department 
MCD  has  a  major  impact  on  the  implementation  of  the  proposed  | 

system.  During  the  period  of  this  implementation  effort,  MCD  I 

has  undergone  significant  changes.  Originally  staffed  with  j 

five  employees  to  handle  acquisitions  and  dispositions,  the 


staff  has  shrunk  to  as  few  as  thraa  parsons,  including  a  new 
Division  haad.  Suparvisory  parsonnal  hava  baan  lost  and  not 
raplacad,  new  hires  hava  arrived  only  to  depart  after  a  week, 
and  in  general,  ths  situation  has  baan  one  of  disorder. 
Coaplicating  natters  was  the  U.  S.  Navy  directive  to 
centralize  the  accounting  and  control  of  ainor  property. 

This  represented  a  substantial  new  task  of  unknown  nagnitude 
and  coaplexity,  for  which  there  were  no  standard  operating 
procedures  or  corporate  neaory  and  experience.  Thus  we 
arrived  in  the  aidst  of  organizational  turbulence  and  a 
significant  but  ill-defined  aission  change  with  ainiaal 
structure  and  assets  in  place  to  support  it. 

P.  CONSTRAINTS 

Constraints  arise  when  a  research  project  or  study  is  a 
follow-on  to  a  previous  effort.  This  is  especially  true  when 
the  follow-on  project  is  a  continuation  of  a  "real  world" 
developaent  effort  (as  opposed  to  a  purely  acadeaic 
exercise).  For  exaaple,  Ross  and  Saith  provide  a  description 
of  the  property  accounting  environaent  which  was  verified  by 
the  Supply  Departaent  users  during  their  research.  This 
description  was  accepted  as  being  essentially  correct  and  the 
present  study  was  conducted  with  that  description  as  a 
constraint.  Additionally,  Navy  and  users'  terainology  (as 
well  as  Ross's  and  Saith 's  terainology)  was  adopted  for 
continuity  during  the  preeent  study  rather  than  creating  an 
additional  set  of  teras. 
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A.  INTRODUCTION 

This  chapter  addresses  specifics  of  the  prototyping 
approach  for  this  project,  describes  the  data  dictionary  and 
the  automated  system  data  base  and  includes  discussion  of 
data  integrity  issues.  It  concludes  with  data  integrity  and 
data  base  administration  issues  relevant  to  MOD  operations. 

».  PROTOTYPING  GOALS  AND  STRATRGIKS 

Chapter  I  discussed  shy  a  prototyping  methodology  was 
selected.  The  following  describes  the  prototyping  goals  and 
strategies  for  this  effort. 

Although  the  prototype  system  was  viewed  as  a  vehicle  for 
verifying  user  requirements  and  our  understanding  of  the 
system,  it  was  also  intended  to  serve  as  a  framework  for  the 
ultimate,  complete  system.  This  required  that  the  prototype 
be  developed  in  the  content  of  an  overall  system  plan. 
Consequently  a  top-down  strategy  was  used  to  focus  the 
prototyping  effort  on  the  major  functions  of  the  system: 
system  attributes  that  would  be  developed  for  the  user  and 
would  demonstrate  both  the  behavior  and  the  feasibility  of 
the  entire  system.  This  strategy  resulted  in  the  coding  of 
both  the  acquisition  and  disposition  software  modules  at  the 


outsat  (as  opposed  to  doing  just  one  of  then  in  greater 
detail) . 

The  next  important  consideration  was  the  level  of  detail 
that  should  be  coded  into  the  prototype.  The  authors' 
decision  was  to  include  the  mininun  detail  necessary  to 
demonstrate  the  system  functions.  Efficient  use  of  designer 
tine  and  rapid  feedback  were  considered  more  important  than 
robust  operation,  efficient  use  of  machine  resources,  or 
significant  error  proofing.  [Berzins  and  Berzins,  1986] 

As  a  result  of  the  prototyping  goals  and  environment, 
the  authors  reinforced  their  understanding  of  the  Ross-Smith 
document,  verified  the  correctness  of  it,  and  implemented 
significant  portions  of  it.  New  requirement  definitions  were 
written  for  areas  overlooked  or  changed  and  these  were  coded 
where  possible.  Different  prototyping  tools  were  used  during 
various  stages  and  included  sample  screens,  sample  menus, 
sample  reports  and  occasional  briefings  for  the  user  covering 
the  authors'  understanding  of  a  concept  or  process. 
Interaction  with  the  user  was  routine  and  regular  and 
included  interaction  with  both  management  (head  of  MCD)  and 
with  the  expected  primary  day-to-day  users  of  the  automated 
system. 

C.  THE  DATA  DICTIONARY 

Our  attempt  at  an  automated  data  base  design  began  with 
the  data  dictionary.  Not  addressed  by  the  Ross-Smith  study, 


this  effort  was  essentially  conducted  "from  scratch”. 
Consequently,  a  certain  amount  of  trial  and  error  was 
involved.  From  a  design  standpoint,  our  challenge  was  to 
maintain  a  very  fragile  balance  between  the  desire  to 
minimize  data  redundancy  (for  storage  efficiency  and 
retrieval  speed)  and  a  requirement  for  the  maximum  amount  of 
cross  referencing  possible. 

The  next  three  subsections  describe  the  data  dictionary 
in  its  current  form.  The  first  covers  data  dictionary 
definition,  contents,  and  utility;  the  second,  structure  and 
operation.  The  final  subsection  contains  a  discussion  of  the 
motivations  and  justification  for  an  on-line  data  dictionary 
and  for  our  approach. 

1.  Definition.  Contents  and  Utility 

A  data  dictionary  is  a  software  tool  that  is  used  to 
control  and  manage  data  elements  in  a  uniform  manner  [Ross, 
1981,  pp.  15-38].  It  can  serve  data  base  administrators, 
system  analysts,  software  designers,  programmers,  and  users 
by  providing  a  central  repository  for  information  about  data 
resources  across  organization  and  application  boundaries. 

The  data  dictionary  designed  as  a  part  of  this  study 
is  a  repository  for  the  source  data  definitions  of  the  MCD  of 
the  Supply  Department  at  NPS,  plus  text  to  aid  both  MCD  users 
and  those  who  might  continue  this  effort.  Items  defined 
include  non-automated  as  well  as  automated  data  and  apply  to 
conventional  files  as  well  as  to  the  automated  system's  data 


tko  mm  data  [Parry.  19M .  p.  43).  Presently .  tbe  only  uaar 
of  this  data  baeo  la  tlM  MCO.  lowm,  ttert  la  ao  roaaoa 
sky  aoM  latar  version  of  tkia  ays  tea  could  aot  to  used  by 
otker  aaaoeiatod  orvaaiutiou.  sock  aa  tto  various  curricula 
off  tears,  or  orpaaiMtioM  other  tto>  PP4  to  to  op  track  of 
plaat  aad  ataor  property  uadar  tkeir  coatrol . 


kppeadia  k  coatalaa  tto  coda  for  tto  oa-llao  data 
dietioaary.  The  data  dictionary  systea  is  comprised  of  five 


filaa,  or  rolatioM. 

i.  00 JDSLM.DBP:  tkia  coataiaa  all  the  data  alaMnts. 
including  aliaaoa.  full  a anas,  a  tost  dafiaitioa.  aad 
tko  propraas,  formats,  aad  forma  afcero  tkoy  appear . 

3.  OO.riLU.DdF :  tkia  file  coataiaa  aa  aatry  for  oacfc 
rolatioa.  aad  a  brief  description  of  each,  its  content 
aad  ebara  each  is  aaad. 

3.  DO.PfteSH.OOP:  tkia  lists  all  propraa  nans a  (botk  akat 
tkoy  are  rofarrad  to  vitkia  tko  coded  ayotoa  aad  full 
Banos  aa  ia  tka  ays tea  specifications)  aad  the  purpose 
of  oack  propraa. 


4.  CALL_PCM . Dkf :  tkia  lists  oack  propraa.  by  aiefcaa 
aad  all  otker  programs  it  calls,  or  la  called  by. 


fluurt  J.l  CMtMta  of  tka  Data  Dictionary  Kalatloat 
(kny  uadarlina 4) 

laefc  of  than  dletioaan  IUm  can  ks  updated  by  using 
•ltter  m  M-liM  — u  drlw  ayatas  callod  DAT  AO  I CT.  Pto  <so« 
ftfwra  3.2)  or  standard  diaas  XZX  Plus  eaanaads.  Ipsclal 
reports  or  gear las  (otkar  ttea  tka  Individual  look-ups 
prsvldad  by  BMIBICT.VMI  asst  ba  raguaatad  using  tka  dkass 
XXX  Plus  easaasad  lsagaaga.  Plpura  3.J  skows  a  sack  a  query 
and  tka  mapanaa .  Is  tkis  axaapla.  a  progranaar  has  ckangad 
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Figure  3.3  Data  Dictionary  Query  Using  DDaaa  III 


3.  Ptllga  HoUTlUga 


The  data  dictionary  was  daalgnad  and  coded  with 
certain  goals  for  data  resource  development  in  Bind: 


-  Providing  users  with  bettsr  access  to 
intonation  about  the  data  and  tha  systea 
resources . 


-  Enhancing  tha  ability  of  those  who  develop, 

maintain,  and/or  improve  the  information  systea. 


-  Supporting  more  effective  application  system 


Technology  has  prograssed  to  where  the  focus  is  now 
on  ashing  tha  services  of  a  data  dictionary  system  available 
on  an  on-line,  interactive  basis.  This  is  consistent  with 
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lateitry  which  has  aovt4  toward  on-line  iyit«w.  TM 
following  okMmtiou  underscore  the  laportaace  of  this  ud 
why  tho  data  dictionary  for  this  effort  la  built  to  function 
on- lino. 


-  Tho  increasing  significance  of  the  date 
dictionary  to  data  adaialstratioa  and  ongoing 
naintenance  puts  new  dasande  on  the  date 
dictionary  systen  and  its  operation  for  tiaely 
access  to  information.  At  the  sane  tine,  the 
typos  of  guestioas  asked  of  the  date  dictionary 
are  becoming  either  more  specific  or  wore  ad  hoc 
in  nature,  loth  of  these  facts  point  forcibly  in 
the  direction  of  oa-line  access. 

-  The  data  dictionary  is  often  viewed  as  a  point - 
in- tine  reference  rether  than  a  static  book -of - 
record  catalog.  This  too  makes  tiaely  accees  to 
current  information  sources  a  growing  importance 
(koss,  19*1 ,  pp.  19-39) . 

Mo  data  dictionary  systea,  especially  one  with 
extensibility,  can  predict  the  exact  fora  of  all  eventual 
user  reporting  requirements .  Mor  is  it  possible  to  know  in 
advance  all  occurrences  of  a  data  element  and  its  relation  to 
other  entities  in  a  systea.  For  this  reason,  a  generalised 
capecity  for  cross  reference  aapping  is  important.  The  data 
dictionary  as  currently  designed  contains  data  bases  of 
programs,  data  elements,  deta  base  files  (relations)  and 
formats;  each  contains  cross  references  to  the  others.  For 
example,  each  data  element  entry  in  the  data  dictionary 
contains  a  listing  of  every  occurrence  of  that  data  element 
in  a  relation,  program,  format,  or  form. 

There  are  many  other  potential  forms  such  a  napping 
might  take.  In  general,  its  options  should  include  the 
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ability  to  14mtl(y  om  or  more  occurrences  o£  the  (irot 
catity  typo  and  troeo  its  relatioashipe  to  oil  assoc la tad 
occurrences  of  s  second  entity  typo,  with  occurrooco 
soloctloa  optloaolly  rostrictod  by  spociflod  critorls  such  as 
attribute  value  or  statue.  If  the  path  bo twees  these  two 
types  crosses  oae  or  wore  intervening  oatity  types,  the 
optioe  to  list  occurreaces  of  these  intervening  types  should 
also  be  offered.  If  wore  than  oae  path  exists,  the  ambiguity 
aust  be  resolved  by  the  report  requester.  Presently,  the 
data  dictionary  systea  does  not  have  these  features.  The 
user  Mist  use  dBase  III  Plus  to  query  the  data  bases  directly 
to  achieve  this  level  of  napping. 

At  present,  the  data  dictionary  is  functional  but 
sub-optimal  froa  a  design  sad  data  integrity  standpoint.  Por 
exaaple,  the  "POBMAT”  field  in  the  DDJDILSM  relation  could  be 
better  designed  for  both  program  efficiency  and  data 
integrity.  This  field  presently  contains  up  to  20  characters 
of  text  that  describe  the  length  and  data  type  of  a  data 
element.  The  field  should  be  split  Into  three  fields:  one 
containing  length  (maximum  of  2  characters) ,  another  for 
designation  of  field  type — alpha  or  numeric  (1  character), 
and  the  third  for  coanents  where  necessary.  Additionally, 
the  structure  of  the  relations  could  be  further  normalised, 
possibly  to  the  point  of  only  two  fields  per  relation, 
finally,  in  several  places  where  the  amount  of  data  to  be 
placed  in  a  field  varies  greatly,  the  dBase  III  feature  of  a 


tfH  field  la  um4.  Thara  My  be  a  aore  efficient  way 


of  dealing  ot th  thess  miatloaa  la  flold  laagth. 

It  should  also  ba  aotad  that,  la  its  prasaat  fora, 
tha  data  dictionary  la  of  priMry  uaa  to  tha  prograaner. 

Othor  aatitiaa  or  ralatioaa  could  bo  addod  that  would  ba  of 
aaloa  to  a  data  bass  adaiaistrator  or  othar  users.  Por 
axaapla .  fialds  such  as  "PXLt.POC"  or  “RBP.DOC"  could  ba 
addod  to  ralatloa  "OO.fllfr  to  atora  tha  aaaa  or  coda  of  tha 
raapoaaibla  individual  sad  tha  garaaaa  rafaraaca  docuaaat 
applicabla  to  tha  Miataaaaca  of  cartaia  fllaa.  in  aatiraly 
saw  ralatloa  could  ba  craatad  which  would  coataia,  for  aach 
dapartaaot,  a  aaparata  polat  of  coatact  for  equipaent 
class! fiad  as  AOPI,  audio- visual .  or  labor  saving  davica. 


0.  TH*  DATA  SAAB 

Tha  prototyping  procaas  rasultad  la  soaa  changes  to  tha 
Boss-faith  data  basa  design.  Tha  aoat  significant  of  thaaa 
ara  diacussad  balow;  tha  raaaiadar  ara  lncorporatad  into  tha 
coda  in  Appaadlcaa  B  sad  C. 

Both  tha  acquisition  and  disposition  process  logical 
aodels  required  soaa  aodlfication  and  redefinition  which 
affected  tha  data  basa.  Por  axaapla.  duplication  of  records 
in  tha  Pending  Dispositions  Pile  that  do  not  have  a  MID 
•unbar  was  alleviated  by  reducing  tha  data  teraination  field 
(DATS_TSAM)  to  a  four  character  Julian  data  field  and 
identifying  tha  record  by  placing  tha  correct  data  and  stock 
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tuabtr  la  the  HO  nuaber  field.  Also,  several  date  eleaeata 
were  added  to  the  eoateats  of  fora  DO  1342  (diaeuased  in 
detail  ia  Chapter  XV) . 

Probably  the  aost  significant  design  changes  occurred 
during  the  noroalisation  process.  Ross-Saith's  four  original 
data  base  files  were  restructured  (noraalised)  to  reduce 
aeaory  requireaents  and  reduce  insertion  and  deletion 
aaosMlies.  The  process  began  with  an  eleaent-by-eleaent 
analysis  of  each  of  the  four  logical  data  base  files.  A 
separate  relation  was  created  to  correspond  to  the 
occurrences  of  each  of  data  eleaents  in  the  logical  files. 

Por  exaaple,  all  of  the  data  eleaents  which  occurred  only  in 
the  logical  Plant  file  were  placed  in  one  relation  (PLANT) . 
The  data  eleaents  which  were  found  in  all  four  of  the  logical 
files  were  placed  together  in  another  relation  (PROPERTY) . 
Data  eleaents  which  were  found  only  in  the  logical  files 
Pending  and  D-Pending  were  placed  in  a  relation  called 
PENDING.  Figure  3.4  suaaarizes  this  process.  Notice  that 
the  data  eleaents  which  were  located  in  the  Plant,  Minor  and 
D-Pending  logical  files  were  further  subdivided  into  two 
relations  (MFG_INFO  and  ITEM_DES)  when  it  was  discovered  that 
IT1MJDES  could  be  indexed  on  STOCK_NO  in  addition  to  NID_NO. 


Flaat  (only) 

PLANT 

Flant  and  Minor 

INV_INFO 

All  four 

PROPERTY 

Flant,  Minor,  and  Fending 

PURCHASE 

Fending  and  D-Pending 

FENDING 

Depending  (only) 

PENDING-D 
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Figure  3.4  Noraalisation  of  the  Logical  Files 

Figure  3.5  shows  a  breakdown  of  the  original  four  files 
into  the  relations  that  they  consist  of.  Bach  relation  is 
now  a  separate  data  base  (" xxx.dbf "  in  dBase  III).  The 
content  (data  eleaents)  of  each  relation  is  also  shown  in 
Figure  3.6. 

B.  DATA  INTEGRITY  AND  DATA  BASB  ADMINISTRATION 

Control  in  a  data  base  environaent  refers  to  the  aethods 
that  an  organisation  uses  to  safeguard  its  assets,  ensure 
accuracy  and  reliability  of  data  in  its  data  bases,  and 
enforce  adherence  to  aanageaent  policies  [Ferry,  1981,  p.  1] 
Two  of  the  aost  iaportant  steps  toward  establishing  control 
in  a  data  base  environaent  are:  (1)  defining  and  enforcing 
data  integrity  constraints  and  (2)  perforaing  the  functions 
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Figure  3.5  Logical  Files  and  Relations 
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Figure  3.6  Contents  of  the  Data  Base  Relations 


of  a  data  baaa  administrator.  Tha  next  two  subsections 
discuss  each  of  these  in  turn. 


1.  Definition  and  Bnforcanant  of  Data  Integrity 
Constraints 

Thera  are  essentially  three  types  of  data  integrity 
constraints;  in  each  case,  its  function  is  to  put  some  limit 
on  the  value  that  a  given  data  element  can  have.  The  first 
is  field  constraints,  also  known  as  edit  constraints.  Field 
constraints  restrict  the  values  allowable  in  a  data  element; 
for  example,  restricting  the  value  that  may  be  put  into  an 
"age"  field  to  a  number  between  1  and  99.  Intrarecord 
constraints  limit  values  between  elements  in  the  same 
relation;  e.g.,  if  a  sales  region  is  Region  Seven,  all 
monthly  sales  reports  serial  numbers  must  begin  with  a  7. 
Interrecord  constraints  are  like  intrarecord  except  that  they 
apply  when  the  data  elements  are  in  different  relations. 
(Kroenke,  1983,  p.  179] 

Enforcement  of  data  integrity  constraints  may  be 
active  (e.g.,  embedded  in  code),  "semi-active"  or  passive 
(e.g.,  data  dictionary).  These  are  discussed  in  the  next  two 
subsections. 

a.  Active  Enforcement 

Active  enforcement  occurs  when  user-written 
programs'  or  data  base  management  system  (DBMS)  routines  are 
used  to  prevent  the  entry  of  data  values  which  violate 
integrity  constraints.  For  example,  the  use  of  edit 


tM^latM  such  m  the  dlM«  ZZZ  "picture"  cad  "function” 
cw—ato  cut  restrict  the  length,  character  type,  range,  or 
Cornet  of  a  value  provided  by  a  user.  Customised  c seeking 
routines  which  only  allow  eertaia  values  are  another  Cora  oC 
active  eaCorceaeat  (e.g.,  a  routine  which  will  only  allow  a 
"f"  or  "M"  Cor  pleat  or  minor  property  la  the  FtOP_CODS  data 
eleneat) .  The  use  oC  temporary  memory  variables  to  store  a 
user's  input  until  it  is  error  checked  is  also  a  Cora  oC 
active  data  integrity  eaCorceaeat.  The  eeeeatial  ingredient 
in  each  oC  the  above  cases  is  that  prograa  execution  will  not 
coatiaue  until  the  user  inputs  a  permissible  value,  thus 
ensuring  that  inadmissible  data  does  not  corrupt  the  data 
base. 

b.  Semi-active  and  Passive  enforcement 

Accuracy,  consistency,  and  quality  can  also  be 
supported  by  the  use  oC  a  data  dictionary  in  both  a  semi¬ 
active  or  passive  role.  An  example  of  a  semi-active  approach 
is  the  placement  into  the  data  dictionary  oC  upper  and  lower 
limits  on  the  value  oC  a  data  element.  For  example,  if  the 
value  of  NFO.TSAk  were  known  to  be  between  1965  and  19S7 ,  a 
query  such  as  the  one  shown  in  Figure  3.7  would  isolate  those 
records  that  contained  invalid  MFC  TEAS  values. 


.USX  MFG  INTO 
. SELECT  2 
.USB  DD_DBLEM 
.SELECT  1 
.FIND  MFG_YEAR 

.DISPLAY  MFG_NAME ,  NOUNJNAME  FOR  DD_DELEM- > MFG_YEAR  > 
MAXJTSAR  .OR.  DD_DELEM->MFG_YEAR  <  MIN_YEAR 

Figure  3.7  Data  Integrity  Query  Using  the  Data 
Dictionary 

In  addition  to  facilitating  review  of  records  for 
inadmissible  values,  the  semi-active  approach  permits 
changes  to  the  bounds  of  values  without  altering  the  program 
code — a  feature  that  should  appeal  to  data  base 
administrators  and  programmers  alike. 

If  the  data  dictionary  is  to  be  used  passively, 
implementation  is  critical.  Successful  implementation  of  a 
data  dictionary,  whether  automated  or  manual,  has  four 
characteristics:  (1)  its  use  and  benefits  are  understood  by 

those  expected  to  use  it,  (2)  it  is  readily  accessible  to 
users,  (3)  its  use  is  enforced  with  minimal  (preferably  no) 
exception  and  (4)  it  has  high  credibility.  Credibility 
requires  that  a  data  dictionary  be  regularly  updated  and 
internally  consistent  and  reliable  so  that  users  will  trust 
its  contents. 

In  sum,  data  integrity  constraints  can  be 
enforced  actively,  semi-actively ,  or  passively.  The  active 
approach  is  likely  to  provide  the  most  control  and  possibly 
the  highest  level  of  data  integrity.  However,  it  has  the 
disadvantage  of  being  least  flexible  and  least  tolerant  of 


exceptions  to  the  rule.  At  the  opposite  extreme  is  the 
passive  avenue  which  relies  heavily  on  user  initiative.  In 
most  organizations  a  combination  of  approaches  is  used. 
Finally,  it  should  be  noted  that  while  data  integrity 
constraints  can  enhance  data  integrity,  they  also  eay 
increase  vulnerability.  If  a  constraint  (e.g.,  a  field 
constraint)  can  be  enforced  by  embedding  it  in  the  code  it 
can  be  an  asset;  however,  if  a  constraint  must  rely  on  user 
memory  or  standard  operating  procedure  (e.g.,  some 
interrecord  constraints) ,  it  may  be  a  liability.  The 
following  discussion  of  constraints  in  our  code  illustrates 
this  point. 

c.  Data  Integrity  Enforcement  in  the  PMPS 

In  the  PMPS,  active  data  integrity  control 
mechanisms  are  used.  The  data  dictionary  has  already  been 
described.  Some  examples  of  data  integrity  constraints  that 
are  embedded  in  the  code  (field  constraints)  follow. 

-  Edit  templates  are  interspersed  throughout, 
especially  in  the  code  of  format  {".fat")  programs; 
see  Appendices  B  and  C  for  examples. 

-  Where  possible  in  the  structure  definitions,  data 
types  of  type  "date”  or  "numeric”  have  been 
specified;  dBase  III  will  restrict  input  to  data  of 
those  types. 

-  The  first  five  digits  of  REPT_NO  are  hard  coded 
into  programs  where  called. 

-  "P"  or  "M”  are  the  only  values  allowed  in  the 
PROP_CODE  data  element. 

-  Routines  are  used  to  check  for  duplicate  WID 
numbers  and  stock  numbers. 
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Am  iwtlwwd  prrriOMlr,  la  Mck  of  the  abon 
cam  prograa  execution  will  aot  continue  until  a  valid  entry 
ia  provided. 


Tk>rt  ara  alao  two  iatorrocord  coaatraiata  worthy 
of  aoto.  TIM  firat  la  perhaps  tho  aoat  lap or teat.  Slaco  VXD 

la  ordor  to  retrieve  tho  corract  data  f row  wara  than  oaa 
ralatioa.  This  ia  aot  praaaatly  awhaddad  in  tha  coda  ia  all 
laataacaa  wh ara  a  VIS  aaohar  ia  aolieitad  froa  tha  uaar  aor 
eaa  it  ha.  Thus  ia  aowa  caaaa  it  ia  lacvabaat  upon  tha  uaar 
to  aaaura  that  ha  or  aha  haa  awtarad  tha  corract  HID  n unbar 
ia  ordar  to  retrieve  data  fro*  several  ralatiowa.  Aa 
additioaal  iatorrocord  constraint  waists  batwaaa  tha  00.1170 
aad  rm_DU  ralatiowa.  Za  ordar  to  obtain  a  physical 
description  of  tha  itaw  raprasantad  by  any  givan  VXD  nunbar. 
tha  stock  auwbar  ia  08.100  anat  watch  a  stock  auabar  ia 
imjDBS.  Thia  watching  la  aot  awboddad  ia  tha  coda  aad  aust 
roly  on  uaar  cars  ia  data  entry. 

Finally,  there  ara  throw  field  constraints  which 
have  yet  to  ba  axploitad: 

-  by  definition,  if  tha  value  ia  TTFB.COOS  is  ”1”, 
than  tha  property  ia  always  plant  property  (versus 
aiaor) . 
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-  If  the  first  nwnfeer  is  the  STOCK Jto  is  •  -7-  then 

tit  «pi|Mst  is  som  typo  of  IM. 

•  Tit  solos  is  tit  fiold  JULIAS  should  bo  restricted 
to  so  greeter  thee  Mi. 

All  throe  of  the  obese  could  prosido  on  added  elesent  of 
costrol  by  enforcing  dots  integrity. 

2.  iala  at  tit  Bty  am  Administrator 

At  the  begi nning  of  this  section  it  was  stated  that 
there  are  too  isportast  says  to  effect  control  in  a  date  base 
easiroasMat .  Ose  is  through  data  integrity  constraints,  aany 
of  shieh  cos  be  imposed  by  the  designer  or  implementor  of  an 
autoMted  support  systes.  The  responsibility  for  the  other, 
the  iapl sues ta tion  of  the  Data  base  Administrator  (DBA) 
function,  falls  largely  on  the  shoulders  of  the  user.  The 
next  section  briefly  resiess  highlights  from  the  literature 
followed  by  relesant  issues  for  NCD. 

a.  Rasies  of  the  Literature 

There  is  considerable  variety  in  what  authors  say 
about  the  DBA.  There  seens  to  be  no  consensus  on  a  standard 
set  of  duties  and  responsibilities.  There  is  agreenent, 
however ,  that  the  scope  of  his  or  her  responsibilities  should 
extend  over  all  data  in  the  data  base,  and  by  aany 
definitions,  over  data  outside  the  data  base  as  well.  There 
is  also  agreement  that  his  or  her  general  objective  is  to 
achieve  a  balance  between  controlling  the  quality  and 
integrity  of  shared  data  and  supporting  users'  needs.  To 
accosplisb  this  the  DBA  aust  at  a  ainiaun  establish  control 
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em  data  dafiaitioaa  and  data  uiagt  in  all  applications. 
(Parry,  19B0,  p.  29;  Van  Duyn,  1992,  pp.  27-29]. 

Za  an  environment  with  a  large  data  basa, 
automated  ayataaa,  aad  aaay  uaars  who  ara  sharing  data, 
control  over  data  dafiaitioaa  and  data  uaaga  iaplias  thraa 
araaa  of  control:  data  activity,  data  basa  structura,  aad 
tha  data  basa  aanagaaant  systan.  Tha  kinds  of  activities 
that  ara  includad  in  aach  of  thasa  thraa  araas  ara  summarized 
in  Pigura  3.8. 

As  was  discussad  in  Saction  III.  C.,  ona  of  tha 
aost  effective  tools  at  tha  disposal  of  tha  D1A  is  tha  data 
dictionary.  Tha  data  dictionary  is  particularly  important 
in  tha  following  functions:  control  of  data  alamants, 
reduction  of  data  redundancy  and  inconsistency,  enforcement 
of  standard  definitions  and  usages,  and  the  determination  of 
tha  impact  of  data  alamant  changes  on  data  basa  design, 
b.  Relevant  issues  for  MCD 

Tha  preceding  discussion  has  bean  basically 
generic.  Often  tha  DBA  is  a  full  time  responsibility  for  ona 
individual  or  even  a  dedicated  staff.  In  a  smaller  operation 
like  MCD,  tha  need  for  a  dedicated  DBA  is  not  as  critical; 
however,  tha  need  for  data  basa  integrity  is  not  diminished 
in  tha  least!  Any  data  basa  system,  automated  or  not,  is 
only  as  good  as  tha  quality  of  data  in  tha  data  basa. 


DBA  Mist  establish  publish  and  enforce: 


name /format  standards  for  fields,  records  A  files 
data  ownership,  access  and  modification  rights 
backup  and  recovery  procedures 

mMAflMfWff  nv  niTA  BASE  STRUCTURE 
design  and  implement  the  data  base  schema 
control  data  redundancy 
maintain  configuration  control 
maintain  documentation  on  data  base  structure 

DBMS  MAMAGEMBHT 
monitor  system  performance 
analyze  and  correct  .user  complaints 
fine  tune  DBMS  performance  and  design 
evaluate  and  implement  improvements 

Figure  3.8  Responsibilities  of  the  DBA 


44 


Consequently  wiiile  nn  organisation  any  not  have  a  dedicated 
DBA,  the  preceding  controls  are  still  important . 

For  MCD  this  philosophy  translates  to  the  following  kinds  of 
controls  (at  a  aininun) . 

The  no  at  crucial  controls  will  be  over  the  KID 
number.  Procedures  aust  be  established  and  enforced  which 
will  control  who  nay  assign  a  VXD  number ,  when  and  how  a 
number  is  assigned,  and  how  to  keep  track  of  VXD  numbers 
previously  assigned. 

Of  vital  importance  is  the  establisiuaent  of,  and 
rigorous  adherence  to,  backup  and  recovery  procedures  for 
information  in  the  automated  data  base,  A  policy  of  weekly 
printouts  of  all  new  00  1342  forms  and  daily  backup  of  disks 
should  be  carried  out  at  a  aininun.  Part  of  implementing 
this  policy  would  be  the  designation  of  a  single  point  ^f 
contact  whose  responsibility  this  would  be. 

At  least  one  person  should  be  sufficiently 
knowledgeable  in  dBase  XII  to  be  able  periodically  to  go  into 
the  data  base  and  conduct  "quality  control  by  browsing 
around".  This  technique  involves  scanning  through  the  data 
base  often  enough  to  be  able  to  spot  anomalies,  correct  them, 
and  perform  other  "housekeeping"  functions. 

The  data  dictionary  begun  with  this  effort  would 
be  a  good  starting  point  for  the  establishment  of  a  master 
data  dictionary  for  MCD.  Although  time  consuming,  the 
conscientious  maintenance  of  this  document  will  more  than  pay 


*  *  ’  •  •  * 


Cor  itsalf  ii  proto 1mm  avoided  toy  virtu*  of  iaproaad  quality 
of  ttoo  data  toaaa.  Dapanding  oa  tha  assignaaat  of 
raspoasibilitiaa,  it  aay  too  worthwtoila  to  aaiataia  a  hard 
copy  of  tha  data  dictioaary  so  that  aicrocoaputar  accasa  is 
aot  a  stuabling  block  for  accass  to  tha  data  dictioaary. 

Finally,  ia  tha  avaat  that  tha  autoaatad  systaa 
axpaads  to  a  natworkad  systaa  with  othar  officas,  all  of  tha 
atooaa  takas  oa  a  significantly  incraasad  aaw  iaportanca.  At 
that  tina,  it  would  ba  concaivabla  for  MCD  to  raquira  a  full 
tiaa,  dadicatad  DBA. 


a.  review  or  ftOfs/SMxm  design 

The  codim  proco** ,  contained  with  frequent  intereetion 
with  the  user,  verified  that  the  Ross-Snith  approach  is 
essentially  correct.  There  were  however,  two  areas  requiring 
notable  nodif ication.  First,  sons  of  Ross-Snith 's  nodules 
were  revised  to  reflect  the  "real  world”  process  nore 
accurately.  These  changes  nake  the  structure  of  the  systen 
easier  for  the  user  to  understand  and  easier  for  the 
prograamer  to  translate  data  flows  and  functions  into  code. 
For  exanple,  the  functions  perforned  in  the  nodules  COMBINE 
1342  INFORMATION  and  UPDATS  FILM  'See  Ross-Snith,  pp  180- 
181)  era  effectively  perforned  simultaneously  and  do  not  need 
to  be  separate  nodules  in  the  code.  Other  revisions  were 
node  to  Ross-Snith  hierarchy  charts — especially  in  the 
acquisitions  process.  These  changes  cane  as  a  result  of 
containing  lower  level  functions  into  single  nodules  (conpare 
Figures  4.1  -  4.3  to  Ross-Snith,  pp.  161-163). 

The  second  area  of  noteworthy  change  was  discovered  after 
further  investigation  into  local  use  of  forn  OD  1342.  While 
Ross  and  Snith  accurately  describe  the  nakeup  of  a  DD  1342, 
several  NFS-instituted  nodif ications  to  the  contents  of  the 
forn  are  routinely  nade.  They  include: 


ACQUISITIONS 


DISPOSITIONS 


AD-HOC 

REPORTS 


Figure  4.X  Top  Laval  Syatta  Hierarchy  Chart 
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-  Addition  of  the  data  element  "PROP_CODE"  naxt  to 
NID  nuabar  in  block  3. 

-  Addition  of  tha  data  alaaant  "DBPT_CODE"  in 

tha  spaca  baaida  tba  heading  "Inventory  Record". 

-  Use  of  tha  data  alaaant  "PO_NO"  in  block  25 
instead  of  tha  contract  nuabar  as  labelled. 

•  Addition  of  data  eleaents  "REQN_NO",  "DATE_RECV , " 
and  "CONSIGNOR"  to  block  54. 

Not  all  of  these  changes  are  presently  operational  in  the 
code;  those  that  are  not  are  noted  in  software  documentation. 
It  should  be  stressed  that  these  alterations  to  the  Ross- 
Smith  effort  are  not  considered  to  be  shortcomings.  Rather 
they  are  a  strong  demonstration  of  the  need  for  a  prototyping 
methodology  and  regular  interface  with  the  user — even  after  a 
thorough  requirements  definition  and  system  specification 
have  been  completed. 

B.  OBSERVATIONS  ON  THE  CODING  PROCESS 

Two  phenomena  occurred  during  the  coding  process  that  are 
noteworthy.  First,  as  expertise  improved  in  the  application 
language,  better  ways  were  discovered  for  programming  modules 
that  were  thought  to  be  completed.  This  placed  the 
programmer  in  a  quandary  between  periodically  improving  code 
already  "finished"  (slowing  project  momentum) ,  or  continuing 
development  knowing  that  performance,  error  checking,  or  user 
interface  could  be  significantly  improved.  This  dilemma  is 
endemic  to  the  prototyping  process  and  it  is  not  uncommon 
eventually  to  have  to  re-code  large  portions  of  a  project. 


This  should  bs  expected  dus  ths  nsturs  of  prototyping; 
however ,  knowing  whsn  to  "retrench"  is  difficult.  Ths 
sbility  to  recognize  this  situstion  snd  establish  guidelines 
for  handling  it  would  be  very  useful  for  nanagers  who  are  in 
the  position  of  managing  or  monitoring  the  progress  of  a 
programing  effort. 

Also  worth  noting  is  our  experience  confiraing  the  "90% 
syndrome"  (Boehm,  19tl,  Chapter  32,  Section  4].  After  a 
certain  point  in  the  coding,  we  found  ourselves  estimating 
code  to  be  90%  complete  only  to  discover  that  "completing" 
the  remaining  10%  uncovered  an  additional  10%  which  needed 
attention.  It  is  noted  here  because  it  is  felt  that  this 
syndrome  can  have  a  considerable  detrimental  effect  on  both 
programmer  morale  and  project  progress  and  thus  should  not  be 
taken  lightly  by  project  managers. 

C .  USER  INTERFACE 

The  purpose  of  this  section  is  to  provide  a  sumary  of 
what  is  contained  in  Appendices  B-D.  These  appendices  are 
significant  in  that  they  represent  the  stopping  point  in  the 
development  effort  and  therefore  the  starting  point  for  any 
follow-on  work. 

All  of  the  modules  in  the  hierarchy  charts  in  Figures  4.1 
-  4.3  are  coded  and  operational.  The  code  for  these  modules 
is  contained  in  Appendices  B  and  C,  with  a  User's  Quick 
Reference  in  Appendix  D.  Additional  performance,  error 


check,  and  user  interface  enhancements  should  be  made  to  some 
of  the  modules  in  Appendices  B  an  C;  recommendations  are 
discussed  in  detail  in  Chapter  V. 

Not  every  coded  program  is  discussed  in  the  following; 
detailed  information  on  all  of  the  code  is  contained  in  the 
Appendices.  Illustrations  of  the  menus  referred  to  below  are 
provided  in  Appendix  D. 

PMPS.PRG  -  The  program  that  provides  the  initial 
interface  with  the  user  is  PMPS.PRG.  It  is  the  first  module 
called  when  the  user  initiates  the  system.  PMPS.PRG  displays 
a  simple  menu  that  provides  access  to  the  Acquisition  Menu, 
the  Disposition  Menu,  Ad  Hoc  Queries  or  a  return  to  the  DOS 
prompt  ("Quit").  The  user  may  not  input  anything  other  than 
one  of  the  four  menu  options.  In  each  case  (except  "Quit") 
the  selection  results  in  another  menu. 

GBTNID.PRG  -  Probably  the  simplest  and  yet  one  of  the 
most  important  programs  in  the  code,  GETNID.PRG  is  used  by 
other  programs  when  a  NID  number  input  by  the  user  is  needed. 
Its  function  is  to  ensure  that  the  user  types  the  NID  number 
in  the  correct  format:  the  exact  length  and  with  only  numeric 
values.  It  thus  performs  the  crucial  function  of  preventing 
common  typing  errors  when  inputing  the  NID  number,  which  is 
the  key  data  element  used  for  virtually  all  operations. 

The  GETRPT.PRG  program  is  virtually  identical  except  that  it 
prompts  the  user  for  a  report  number  used  in  the  disposition 


process . 


ACQUIS IT . PRO  -  This  program  provides  accass  to 
subprograms  that  parallel  the  NPS  Supply  Department's 
acquisition  process  and  other  primary  MCD  equipment  control 
functions.  It  displays  a  menu  with  an  option  that 
corresponds  to  each  of  the  major  acquisition  phases  and  the 
inventory  process.  ACQUIS1T.PRG  will  loop  until  one  of  the 
menu  options  is  selected.  The  first  five  of  the  options 
provide  interaction  with  various  data  bases;  the  next  two 
respond  with  other  menus.  The  bottom  option  returns  the  user 
to  the  PMPS.PRG  menu. 

NT_PEN JR .  PRG  -  The  subprogram  that  parallels  the  first 
phase  in  the  acquisition  process,  that  is,  the  creation  of  a 
new  logical  record  for  a  new  piece  of  equipment,  is 
NT_PEN  JR . PRG  (the  nodule  name  is  an  abbreviation  of  Notice  of 
Pending  Receipt) .  This  phase  is  initiated  when  MCP  is  first 
notified  that  a  piece  of  equipment  is  on  order  or  enroute. 
Often  little  is  known  at  this  point.  However,  once  an 
automated  system  is  in  use,  MCD  standard  operating  procedure 
will  require  that  at  minimum  the  NID  number  must  be  assigned. 
Consequently  the  NID  number  and  any  other  information  that  is 
available  will  be  entered  in  this  step  of  the  process. 
Interface  with  the  user  begins  with  a  prompt  for  the  NID 
number  (GBTNID^PRG) ;  the  program  then  checks  to  ensure  that 
the  NID  number  input  has  not  been  assigned  to  another  piece 
of  equipment.  If  it  has,  an  error  message  is  displayed  and 
the  user  is  prompted  to  try  again.  Once  a  valid  (i.e.,  new) 


with  • 


MriM  of  thrww  sctnm  rtprMMtiac  thrww  relations: 
riliil ig .  Property,  ted  PwrekaM.  Tfcw  user  is  allowed  to  fill 
is  fields  that  srs  haows  at  that  tiao  sad  leave  othors  blaah. 
The  iaforaatioa  is  thsa  storsd  ia  each  rslatioa. 

■Q_JtSCPT.PM  -  Ths  asst  prograa  oa  ths  hCgVZSZT.Ptff  asau 
is  called  aftsr  a  sow  pises  of  equlpaaat  has  hssa  received 
but  bsfors  it  is  ssat  to  ths  destination  department.  Is  ia 
njnjt.PIS,  ths  first  task  is  to  sasurs  that  ths  no  auabsr 
entered  is  valid;  hows vs r ,  this  profraa  aa auras  that  thara  is 
a  record  ia  ths  logical  Pending  fils  corresponding  to  ths  VXD 
auabsr  input,  i.s.,  that  ths  first  phsss  (abovs)  has  boss 
eoaplstsd.  laving  fowad  ths  IXS  auabsr  ia  ths  fils,  ths 
prograa  thsa  chocks  to  ba  sura  that  it  has  not  already  boon 
through  phass  two  (this  prograa) .  This  do termination  is  nado 
based  oa  whs  ths  r  thara  is  aa  ‘ft*  (rocoivod)  ia  tho  Pm.STIT 
field  of  the  Ponding  rolatioa. 

laving  dstoraiasd  that  ths  user  is  in  ths  rifht  prograa 
for  ths  right  phass,  ths  systea  proapts  ths  user  for  a 
designation  of  *P*  or  '*'  for  plant  or  ainor  property. 
Finally.  a  sequence  of  three  screens  is  displayed,  on#  each 
froa  ths  Pending,  Property,  and  Purchase  data  bases 
(relations).  Ths  user  thsa  inputs  kaoewi  iaforaatioa  into  tho 
displayed  fislds. 

MkXS1342.Pt0  -  This  prograa  represents  tho  third  major 
phass  of  ths  acquisition  process.  Once  a  piece  of  equipment 
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has  boon  Mat  to  the  destination  departnent  and  tho 
dopartno nt  haa  returned  a  Corn 

VS  1342,  MCD  will  fill  in  tho  renaining  data  fiolda  in  tho 
data  rocord  Cor  tho  now  pioco  of  equipnent.  Thus  a  DD  1342 
Property  Rocord  Card  can  bo  conplotod.  MRKK1342.PRG  pronpts 
tho  user  Cor  a  HID  n unbar  and  than,  in  sequence,  calls  ono 
scroon  sack  Cor  tho  Plant  and  Inw_Info  relations.  Thors  tho 
user  nay  input  or  change  inCornation  as  needed.  Tho  progran 
then  pronpts  tho  user  Cor  tho  appropriate  equipment  stock 
nunhor;  if  that  stock  n unbar  is  not  already  in  tho  Iten_Des 
relation,  a  scroon  is  presented  so  tho  user  nay  fill  in  a 
physical  description  of  tho  equipuent  with  that  stock  nunber. 

VZIV1342.PtS  -  Representing  tho  next  logical  step, 
VISV1342.PR6  allows  the  user  to  see  the  intonation  that  has 
boon  gathered  in  the  last  three  steps,  in 
DO  1342  fomat.  Called  Cron  tho  RCQUXSIT.PRG  nenu. 

Vim 342. PRC  pronpts  the  user  Cor  a  MID  nunber.  The  MID 
nunber  then  identifies  the  appropriate  records  in  the 
Property,  Plant,  Hfg_Xafo,  Xnw_Info,  and  Purchase  relations. 
Tho  necessary  data  is  extracted  Cron  each  relation  and 
displayed,  because  of  the  length  of  the  DD  1342,  the  screen 
display  is  broken  into  two  screens  and  sons  unused  parts  of 
the  00  1342  are  not  shown  at  all. 

PMfP1342.Pt0  -  This  progran  is  also  called  Cron  the 
Requisition  Menu;  the  progran  pronpts  the  user  Cor  a  RID 
nunhor  and  then  prints  a  fora  DD  1342  on  blank  paper  using 


inputs  frou  ths  sans  rslstions  as  VIEW1342.PRG.  This  program 
doss  not  print  onto  s  blank  DD  1342  form,  although  this  would 
bs  a  dssirabls  enhancement . 

PENDMENU. PEG  -  Callsd  fron  ths  Acquisition  Menu, 

PENDMENU . PEG  displays  a  nsnu.  It  allows  ths  ussr  thrss 
options:  to  browss  or  sdit  ths  logical  Ponding  fils  (via 
VIEWPEND.PRG) ,  to  print  all  of  ths  filss  that  contain  a 
certain  value  in  ths  PEND_STAT  field  of  ths  logical  Pending 
fils  (via  PEMTPEND . PEG) ,  or  to  return  to  ths  Acquisition 
Menu.  PENDMENU . PEG  will  not  accept  any  input  other  than  one 
of  ths  nsnu  options. 

VISWFEND . PEG  -  When  ths  ussr  selects  the  "Browse/Edit 
Pending  Piles”  option  of  ths  nsnu  displayed  by  PENDMENU . PRG , 
VTEWPEND . PEG  displays  selected  portions  of  equipment  records 
in  ths  logical  Pending  tils  (ths  logical  Pending  file  having 
been  "built"  fron  ths  Property,  Purchase,  and  Pending 
relations) .  Which  records  are  displayed  is  determined  by  the 
user;  selection  is  based  on  the  contents  of  the  PEND_STAT 
field  of  the  Pending  relation.  Once  specified,  the  user  will 
be  stepped  through  the  logical  Pending  file,  one  record  per 
screen,  until  all  records  nesting  the  selection  criteria  have 
been  displayed.  Changes  made  on  the  screen  are  stored  in  the 
appropriate  relation. 

PBMTPEMD.PEG  -  This  program  is  also  called  from  the 
PENDMENU. PEG  Menu  and  allows  the  user  to  print  out  selected 
records  in  the  logical  Pending  file.  Its  operation  is 


conceptually  tha  same  as  VIEW PBND . PR6  except  that  the  output 
is  sent  to  the  printer  instead  of  the  screen. 

INVMENU . PRO  -  Called  iron  the  ACQUISIT.PRG  Menu,  this 
program  displays  a  menu  that  will  invoke  either  of  two 
inventory  functions  or  returns  the  user  to  the  ACQUISIT.PRG 
Menu.  The  first  inventory  function  is  to  browse  or  edit 
screens  made  up  of  DD  1342 (-)  information.  The  second  menu 
option  allows  the  printing  of  the  same  screens.  INVMENU. PRG 
will  not  accept  input  other  than  one  of  the  menu  options. 

VIEWINV . PRG  -  VIEWINV. PRG  is  called  from  INVMENU. PRG.  It 
creates  screens  of  DO  1342 (-)  information  for  equipment  that 
meets  two  conditions  input  by  the  user.  The  conditions  are 
inventory  cutoff  date  and  department  of  interest;  this 
combination  is  the  most  common  selection  filter  in  the 
inventory  process.  VIEWINV. PRG  uses  information  from  the 
Property,  Plant,  Mfg_Info,  and  Inv_Info  relations.  Records 
are  displayed,  one  screen  per  record,  until  all  those  meeting 
the  selection  criteria  have  been  shown.  Changes  made  on  the 
screen  are  stored  in  the  appropriate  data  base. 

PRMTIHV . PRG  -  When  the  user  selects  the  "Print  Inventory 
List"  option  from  the  Inventory  Menu,  this  program  is 
invoked.  As  with  the  VIEWPEND/PRNTPEND  pair,  PRINTINV.PRG 
sends  output  to  the  printer  rather  than  the  screen.  It  uses 
the  same  selection  criteria  and  relations  to  provide  an 
inventory  list. 


DXSPOSIT . PRO  -  Upon  selecting  the  Disposition  portion  of 
ths  automated  system,  ths  operator  will  gat  a  scraan  allowing 
bin  or  har  to  process  daily  transactions.  This  involves 
adding  new  records  to  the  Pending  Dispositions  files  or 
■anaging  the  existing  records.  The  user  nay  also  print  out 
the  hit  list  report  at  this  point. 

UfPUT_Th . PRO  -  If  "Process  Daily  Transactions"  is 
selected,  the  user  will  be  asked  if  the  excess  equipment 
being  processed  has  a  NXD  number  or  not,  as  the  processing  of 
the  equipment  is  somewhat  different  for  the  two  situations. 

IN PT_KXC . PUG  -  If  the  excess  equipment  has  a  NID  number, 
then  screens  requesting  necessary  information  from  the  user 
will  be  displayed  through  this  module.  The  information 
gathered  here  is  used  to  build  a  "Pending  disposition" 
record.  As  the  user  has  stated  there  is  a  NID  number  for  the 
equipment,  most  of  the  information  is  already  resident  in  the 
data  base.  The  information  taken  here  is  loaded  into  the 
data  base  and  an  "I"  is  inserted  into  the  PEND_STAT  field, 
indicating  further  processing  is  necessary. 

OTNSRIXC . PUG  -  If  the  user  states  that  there  is  no  NID 
number  for  this  excess  equipment,  then  the  equipment  is 
something  other  than  plant  or  minor  property.  Although  far 
less  information  is  necessary  to  keep  track  of  the  Pending 
disposition  in  this  case,  none  exists  in  the  data  base. 

Since  the  item  does  not  have  a  NID  number  the  system 
identifies  the  record  by  entering  the  current  date  and  stock 


number  ia  the  NXDJKO  field.  The  information  taken  from  the 
uaer  will  be  loaded  into  the  data  base  and  an  NIN  is  inserted 
into  the  PEND_STAT  field  to  indicate  further  processing  is 

necessary . 

BLD JDPIM.PRG  -  Here  the  user  is  asked  to  validate  the 
various  screening  periods;  this  is  done  since  Navy 
regulations  may  change  then  in  tine.  Proa  that  point  on  the 
system  will  process  those  records  that  have  an  "I"  in  the 
PEMDjSTAT  field  according  to  what  type  of  equipment  it  is: 
Industrial  Plant  Equipment,  Automated  Data  Processing 
Kquipnent  or  something  else.  This  is  determined  from  the 
information  in  the  data  base.  At  the  conclusion,  several 
reports  are  generated  as  necessary  and  or  requested.  They 
are: 

-  SP  120  Report 

-  DD  1342  Industrial  Equipment  Report 

-  Reutilisation  Hit  List 

DXfPJHOT.PRO  -  Should  the  user  select  the  Disposition 
Management  option  on  the  Dispositions  Main  Menu,  the  next 
screen  allows  another  choice  between  "Managing  the  Status"  of 
existing  records,  "Modifying  Records"  in  the  data  base,  or 
returning  to  the  Main  Menu. 

MQTflTAT . PRO  -  "Managing  Status"  is  selected  when  it  is 
necessary  to  update  a  record  or  records  or  to  process  records 
for  items  that  have  reached  their  termination  date.  A  menu 
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is  provided  from  which  ths  user  may  sslsct  ons  of  ths  abov« 
options . 

INPUTIM . PRO  -  if  ths  ussr  has  indicstsd  that  instructions 
from  either  DIPKC  or  DARBC  haws  been  received,  then  he  or  she 
is  asked  to  enter  those  instructions  for  the  record 
identified.  The  termination  date  and  phase  are  adjusted  in 
accordance  with  the  instructions  and  the  user  is  returned  to 
the  Disposition  Management  Menu. 

MODRKC . PRO  -  The  user  may  want  to  modify  the  data  base 
when  selecting  options  from  the  Disposition  Management  Menu 
("Modify  Data  Base").  The  screen  that  appears  allows  the 
user  to  choose  from  several  options,  including  those  based 
on  receiving  a  signed  DD  1149,  receiving  a  signed  DD  1348-1, 
making  corrections  to  data,  printing  a  DD  1342,  deleting  a 
record,  or  processing  an  item  for  reutilization.  When  a 
signed  DD  1149  or  DD  1348-1  is  received  it  is  an  indication 
that  an  item  that  has  been  transferred  or  disposed  of  has 
been  received  by  the  appropriate  organization  and  now  should 
be  removed  from  the  files. 

DLIT_RSC.PRO  -  The  user  is  asked  if  a  NID  number  is 
available,  corresponding  to  the  record  to  be  deleted.  If  one 
is,  it  is  entered  and  the  record  is  deleted  throughout  the 
data  base.  If  the  user  does  not  have  a  NID  number  he  or  she 
is  told  to  use  the  "Modify  Record"  option  to  browse  the  data 
base  in  order  to  find  the  record,  get  the  NID  number,  and 
return  to  delete  the  record. 


1KJTXLIZ . PRO  -  If  an  item  is  identified  for  reotilization 
at  NPS,  the  NXD  number  ia  entered,  the  user  is  prompted  for 
the  new  department  and  location,  and  the  system  updates  the 
appropriate  relations.  The  record  is  then  removed  from  the 
"Pending  disposition"  file.  If  the  user  is  unsure  of  the  NID 
number,  the  record  number  identifying  that  item  as  excess 
property  may  be  entered.  Since  more  than  one  item  may  be 
associated  with  one  record  number,  the  user  will  be  allowed 
to  browse  each  record  with  that  number  until  the  correct 
record  is  located. 

FXXJDATA.PRG  -  When  it  is  determined  that  there  is  an 
error  within  a  record  or  set  of  records,  there  are  two 
possible  ways  of  getting  to  that  record  within  the  automated 
system  in  order  to  correct  the  error.  The  user  may  use 
either  the  NID  number  or  the  report  number.  Using  the  report 
number  may  require  hunting  through  several  other  records  to 
find  the  one  needing  the  correction.  All  the  data  pertaining 
to  the  current  record  is  displayed  in  a  series  of  screens  and 
the  user  may  make  any  correction  necessary. 

Appendix  D  contains  the  User's  Quick  Reference  Guide. 

This  guide  consists  of  reference  sheets  for  use  with  each  of 
the  major  modules  of  the  system.  Bach  follows  the  same 
format;  an  annotated  sample  of  that  format  follows. 

USER'S  QUICK  REFERENCE 

1.  PROGRAM  NAME:  The  name  of  the  program;  that  is,  the  name 
that  is  necessary  to  run  the  program. 


2.  PROMPT:  Most  nodules  will  not  hsvs  a  prompt,  par  ss,  but 
rsthsr  srs  menu  driven. 

3.  PURPOSE:  A  brief  description  of  the  program's  primary 
function.  How  it  interfaces  with  the  user  also  is  noted, 
with  regard  to  what  the  system  expects  as  input,  what  the 
output  is,  and  its  output  form. 

4.  TO  RUN:  What  is  necessary  to  start  this  program.  Most 
programs  will  be  called  by  other  programs  and  thus  are  not 
executed  by  the  user  directly. 

5.  TO  USE:  Particular  information  that  is  necessary  for 
effective  program  use. 

a.  Listed  here  as  subheadings,  will  be  references  to 
other  pages  having  specific  information  about  various 
operations  within  the  system. 

b.  These  references  include  the  major  subsystems  and 
the  various  major  operations  within  those  subsystems. 

6.  TO  GET  OUT:  What  the  user  can  do  to  escape  from 
situations  where  he  or  she  does  not  wish  to  be.  This 
information  is  provided  in  general  terms,  allowing  more 
detailed  infqrmation  to  be  covered  in  the  more  specific 
subsections  of  the  TO  USE  section. 


7.  PROBLEMS /CAVEATS:  "Nice  to  know"  information  that  the 
user  should  keep  in  mind  when  running  the  program.  These 
would  include  lessons  learned  by  others  who  have  used  the 
system  before.  Many  of  the  specifics  here  are  also  covered 
in  a  subsection  of  the  TO  USE  section. 

D.  SAMPLE  QUERIES  AND  RESPONSES 

Chapter  II  contains  ad  hoc  queries  representative  of  the 
type  expected  for  the  automated  system.  The  following  are 
those  queries  repeated  with  a  reference  to  a  corresponding 
figure.  Each  figure  contains  the  dBase  III  Plus  "dot  prompt" 
commands  necessary  to  answer  the  query  and  screen  print  the 
response  from  an  artificial  data  base.  Any  of  these  "dot 
prompt"  sequences  could  be  coded  into  the  automated  system 
and  stored  as  a  menu-driven  recurring  query  or  stored  in  a 
dBase  II  Plus  "query  file".  For  purposes  of  the 
demonstration,  departments  are  designated  by  a  four  digit 
number  (e.g.,  1111,  2222,  3333). 

-  What  plant/minor  property  does  the  Administrative 
Science  Department  hold?  Figure  4.4. 

-  Where  is  (some  particular)  piece  of 
plant/minor  property  located?  Figure  4.5. 

-  What  dollar  value  in  minor  property  is  held 

by  the  Electrical  Engineering  Department?  Figure 
4.6. 

-  Where  is  all  of  the  XYZ  Corp.  equipment 
(e.g.  for  maintenance)?  Figure  4.7. 

-  What  dollar  value  in  plant/minor  property  was 

lost  when  Root  Hall  burned  to  the  ground?  (Assumes 
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Root  contains  departments  1111  and  3333.)  Figure 

4.S . 


-  How  big  is  a  certain  piece  of  plant  property 
(e.g.  for  shipment)?  Figure  4.9. 


.  us*  property 

.  DISPLAY  NXDJfO,  NOUN Jt AM*.  HFC_NAMX  FO*  DIPT  COD* 
Record#  NZDJfO  KOUNJIAME 

4  11111-111004  Offset  Printing  Press 

5  11111-111004  Portable  Viewgraph  Projector 

12  11111-111012  Computer  workstation 


•"4444" 

MFGJ1AMB 
Nil liens  Paper 

Alan's  Video 
Baker  Furniture 


Figure  4.4  dBase  ZZZ  Plus  Response  to  Query  about 
Administrative  Science  Equipment 


.  US*  PP.OPC*TY  INDEX  NXD_PROP 
.  SXLXCT  2 

.  US*  XNV  INFO  INDEX  NID.INV 
..  SELECT  PROPEXTY 

.  SIT  RELATION  TO  NID.NO  INTO  INV.INFO 

.  DISPLAY  NOUN  NAME.  MFC  NANI,  INV^ZNFO- > LOCATE  FOR  NID_NO-"11111-111013" 
Record#  NOUN.NAME  HFC.NAHE  INV_IMFO- > LOC A 

13  File  cabinet,  walnut  Casavetti's  Caaeaent  R100B211 


Figure  4.5  dBase  ZZZ  Plus  Response  to  Query  about 
Location  of  a  Piece  of  Property 


.  USE  PROPERTY  INDEX  NZD.PROP 
.  SELECT  2 

.  USX  HFO.INFO  INDEX  NIDJNFC 
.  SXLXCT  PROPERTY 

.  SET  RELATION  TO  NZD.NO  INTO  HFG.ZNFO 

.  DISPLAY  NOUN_NAMI,  MFO_INFO- >C0ST  FOR  DEPT.COD*-" 2222" 
Record#  NOUN _N AN*  NFO_INFO->COST 

2  Telescope  4543.00 

6  Atoa  Snasher,  portable  2494.00 

10  Disk  Backup  Srstea  7454.00 


Figure  4.4  dBase  ZZZ  Plus  Response  to  Query  about 
Property  Dollar  Amount  in  Department 
Code  "2222" 


.  on  property  non  nxd.prop 
.  SELECT  2 

.  use  HTG.raro  non  me _npg 
.  select  property 

.  nr  relation  to  wid_j*o  zero  are  taro 
.  outlay  nomjuMK.  npo.znpo- >coit  rot 

Uc*rt*  NOCNJIAME 

1.  Revolver.  .32  cal.  brk  aeclea 
3  Wall  Bookabelf.  walnut 
9  Auceaatic  Partilisar  Spreader 
7  Znduatrial  SertMU  Labe looker 
9  Mechanical  Lift 
11  Re If  tea  pick  up  truck 
13  file  cabinet,  walnut 


T..CODR-“llll’.Ot.DtFT  COOK” '3333' 
g_:wfo->cost 

994.00 

•7«.00 

•1.00 

947.00 

4394.00 

19349.00 

433.00 


Pigtire  4.7  dRaaa  ZZZ  Plan 
Location  of  all 
■fuipant 


kaponaa  to  Query  about 
'•eker  Purniture" 


.  vst  property  zaoa  hxd_prop 
.  SELECT  2 

.  mi  znv.znro  index  nid.inv 
.  select  rtoratTY 

.  SET  RELATION  TO  NZDJHO  INTO  ZNV  INTO 

.  oisr  nomijiAHE.  nrc_Moc_i*o .  iHv_:ifro->  locate  rot  (Oc.iUMfirntr  rumuure’ 

Record#  HOUR .NAME  WrG_1O0_NO  I NV _INFO- > LOCATE 

3  Wall  Bookahalf .  walnut  Nodal  11434  R002BU2 

12  Coaputer  desk  and  aha If  WS-1234  R311R400 

13  rile  cabinet,  walnut  PC-334-W  R100B211 


Pigura  4.t  4 Reae  ZZZ  Plua  Raaponaa  to  Quory  about 

Dollar  Value  of  Property  Attached  to 
Departnenta  with  Code  Muabera  ”1111” 
or  "3333" 


■  USE  PLANT 

.  DISPLAY  NI0JJ0.  LENOTH.  WIDTN.  EEIOWT.  WEICNT  FOR  NIC  riO-'Ulll-IllOO- 
Recorda  WIDJSO  LEN0TI  WIDTH  HSIONT  WEIGHT 

7  11111-111007  29in  I9in  12in  1991b 


Pigura  4.9  dkeae  ZZZ  Plua  Roaponae  to  Quory  about 
the  tiso  of  a  Piece  of  Iquipawnt 


.  THE  TASK  REMAINING 

A.  THE  ORGANIZATIONAL  ENVIRONMENT  AS  OF  AUGUST  1987 

1.  Personnel 

Currently  MCD  has  a  new  division  head  and  there  is 
one  experienced  worker  each  in  the  acquisition  section  and 
disposition  section.  Additionally,  a  new  employee  has  just 
reported  to  support  the  acquisition  process,  specifically  for 
the  additional  workload  created  by  the  new  responsibility  of 
accounting  for  and  control  of  minor  property.  Advertising 
for  the  positions  of  joint  acquisitions/dispositions 
supervisor  and  for  an  additional  person  in  the  disposition 
section  is  being  delayed  due  to  a  lack  of  funding. 

The  new  acquisition  section  employee  has  experience 
with  mainframe  computers  and  is  eager  to  learn  to  use 
microcomputers  and  the  proposed  automated  system. 

2 .  Equipment 

The  MCD  has  ordered  a  microcomputer  which  is  to  be 
dedicated  to  the  new  automated  system.  The  machine  ordered 
is  a  Zenith  model  ZFX-248-GE  with  the  following 
characteristics:  IBM  AT  compatible,  one  5  1/4-inch  360KB 

floppy  disk  drive,  one  20MB  hard  disk  drive,  80286  8 MHZ  CPU 
card  with  512KB  RAM,  input/output  card  with  serial  and 
parallel  ports,  enhanced  graphics  adapter,  dual  frequency 
high  resolution  monitor,  and  640KB  memory  expansion  board. 


TIM  MCD  also  has  a  Diablo  daisy  wheel  printer  that  will  be 
shared  with  MCD  personnel  not  using  the  automated  system. 

B.  TASKS  FOR  THE  SUPPLY  DEPARTMENT  USERS 

The  single  most  important  task  for  the  Supply  Department 
user  will  be  to  maintain  the  development  momentum.  The 
arrival  of  new  computer  hardware  in  five  months  will 
contribute  to  this  effort;  until  then  it  might  be  possible  to 
borrow  appropriate  computers  from  another  department.  The 
equipment  that  is  currently  in  the  MCD  office  is  unacceptable 
except  for  the  most  basic  testing  and  familiarization  tasks. 
Key  personnel  to  help  keep  the  project  moving  include  the 
Computer  Technology  Curricular  Officer  and  Academic  Associate 
for  the  Information  Systems  Curriculum  (both  of  whom  may 
assist  in  identifying  potential  student/faculty  programmers 
to  continue  development) ,  and  those  in  the  military  chain  of 
command  (who  provide  funding  and  hiring  approval) .  Other 
necessary  tasks  include: 

1.  Training.  There  are  many  commercial  training 
programs  available  for  the  operation  of  dBase  III 
Plus.  It  is  highly  recommended  that  at  least  one 
MCD  individual  be  sent  to  one  of  these  courses 
(two  to  three  days  minimum) . 

2.  Printer.  The  identification  of  a  dedicated 
printer  for  the  automated  system  is  desirable. 

Follow-on  programmers  should  be  able  to  provide 
specific  details  on  technical  characteristics 
that  will  best  suit  the  system  in  its  final  form. 


3.  dBase  III  Plus.  MCD  should  purchase  its  own  copy 
of  dBase  III  Plus  software  and  documentation  to 
have  resident  in  division  spaces;  this  is 


categories:  support  ion— antatlaa,  lingering  research 
issues,  u4  soft wars  code. 

x.  timinrr  nnm— mini 

At  a  nf  ala— i,  a  full  aai  4atailoi  Omt'i  Pease 1  aut 
too  developed  before  tfea  systee  is  ready  for  say  oat ended  as* 
by  tbo  osar.  As  os-lisa  tutorial  would  also  bo  helpful. 

2.  tasearch 

At.  laast  tbrsa  aroas  saai  further  rasaarch  befora 
developsent  progresses  aery  aseh  further.  The  first  is 
systaa  sisiag;  although  the  data  base  probably  will  sot 
contain  as  sany  as  C9,000  it ess,  nothing  sore  specific  is 


available  at  this  tins,  tecogalslag  that  naaagenont  decree 
has  a  significant  lapact  on  sisiag,  the  follow-on  developer 
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mm y  luivt  to  press  for  som  decisions  is  ordor  to  continue 
ImlofMit  without  •  high  degree  of  risk. 

The  second  tr«a  of  rooooreh  coacorns  expansion  of  tho 
system:  s  logical  outgrowth  of  u  automated  account log 
system  is  tho  expansion  to  tho  NFS  departments  via  a  network. 
This  will  haws  considerable  impact  on  design  and  development 
and  details  must  be  known  at  tho  earliest  opportunity. 

Finally,  system  and  data  base  security  is  an  area 
that  needs  further  requirements  definition.  dBase  III  Plus 
can  effectively  support  password  protection;  however,  good 
security  will  require  standard  operating  procedures  as  well. 
In  any  case,  security  issues  will  have  an  impact  on 
development  direction  and  emphasis. 

3.  Code 

Specific  areas  where  improv  neats  ?r<*  needed  include 
error  checking,  system  performance,  and  the  user  interface. 

a .  Brror  Checking 

The  following  improvements  will  assist  in 
reducing  the  most  common  errors  expected  with  the  automated 

system  as  designed: 


-  Within  the  automated  system  there  should  be  a 
transaction  record  file  and  a  mechanism  with  which 
to  store  records  input  by  the  user  during  an 
individual  session.  This  file  could  then  be 
printed  out  at  the  completion  of  the  session  and 
compared  to  what  the  user  thought  he  or  she  had 
done.  Upon  finding  an  error,  a  correction  could  be 
made  immediately. 

-  The  first  five  digits  of  the  HID  number  are  always 
the  WPS  Unit  Identification  Code — 62271;  these 
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ifcoiM  to  "tort-cotod1*  to  preclude  typographical 


-  Xa  tho  Cow  remaining  iaataacos  whora  input 
Crow  tho  oerooa  ia  obtained  with  tho  "accept" 
cowwaad,  this  should  bo  roplacod  with  an  ”•  OCT” 
soguoaco  so  that  "picturo"  and  "function" 
eapabilitios  nay  bo  usod  for  orror  chocking. 

-  Xa  all  casos  whore  tho  user  currently  has  direct 
access  to  all  data  bases  (e.g.,  via  an  "edit” 
cowwaad) ,  access  should  bo  facilitated  via  a  aeaory 
variable  that  can  bo  chocked  before  updating  the 
data  base.  Prague  and  Baawitt  use  a  good  approach 
in  tho  referenced  text.  [Prague,  1916,  p.  231] 

-  Xa  the  MPUT_T»  nodule  it  is  conceivable  that  the 
user  night  want  to  answer  "yes"  to  the  question 
posed,  hit  the  wrong  key  by  mistake ,  and  end  up  in 
OTHHUDCC  and  not  realise  it.  There  should  be  sows 
text  announcing  where  the  user  is  and  a  nechanisa 
that  allows  escape.  The  text  and  escape 
nechanisa  should  be  put  in  both  XVPTJBCC  and 

omuzc. 

-  In  M6TSTAT,  sons  textual  ittfomation  is  needed 
indicating  to  the  user  where  he  or  she  is  and  a 
way  to  back  up  if  the  wrong  key  has  been  depressed. 

b.  Systea  Performance 

In  the  area  of  systea  performance,  probably  the 
aost  draaatic  iaproveaents  can  be  nade  by  use  of  a  conpiler. 
Several  coaaercial  packages  are  available  for  use  with  dBase 
IIX  Plus  including  CLIPPBK,  QUICKSXLVBft,  and  POXBASB  PLUS. 
These  packages  claia  sinilar  benefits,  such  as  faster 
execution  tine  (10-100  tines  faster),  enhanced  security  of 
code  (by  virtue  of  conversion  to  machine  language) ,  and 
increase  in  allowable  aeaory  variables  and  data  base  fields. 
While  these  claims  have  not  been  tested  by  the  authors,  it  is 
clear  that  the  use  of  a  compiler  would  improve  system 
performance  enough  to  make  use  of  one  worthwhile. 


Using  a  compiler  such  as  CLIPPER  has  an 
additional  significant  banafit.  As  tha  coda  is  currently 
writ tan,  occasional  "joins"  ara  usad  to  craata  naw  data 
basas.  As  this  actually  physically  craatas  a  naw  database, 
it  is  both  slow  and  usas  system  nanory.  With  CLIPPER  or  a 
similar  compilar,  tha  command  "sat  ralation  to"  can  be  usad 
to  link  up  to  tan  data  basas  on  a  key  field.  This  technique 
precludes  tha  creation  of  a  naw  data  base,  thus  reducing 
additional  memory  needed  and  dramatically  speeding  up 
operation. 

Another  technique  that  will  result  in  greatly 
increased  speed  is  the  use  of  "find"  with  a  ".ndx"  file. 

Using  "find",  the  system  searches  on  an  index  to  find  a 
record  this  is  much  faster  than  going  through  each  record 
individually.  In  the  original  version  of  the  code,  records 
were  located  using  the  "locate"  command.  In  most  cases  this 
has  been  replaced  with  a  "find"  command  and  an  index.  This 
should  be  done  throughout  the  code. 

The  physical  description  (PHYSJDESC)  field  of 
ItemJDes  relation  could  be  put’  into  a  "memo"  type  of  field  if 
the  "joins"  are  eliminated  (dBase  will  not  allow  memo  fields 
to  be  "joined").  This  would  save  memory  and  improve  speed. 

In  the  HTLSTREP  module,  the  PEND-D  and  PROPERTY 
relations  are  joined  in  order  to  get  all  the  information 
necessary  to  make  the  Hit  List  Report.  This  might  be  done 
better  by  setting  a  relation  between  the  two  and  customizing 


the  report.  The  report  fora  is  currently  being  used  end  does 
not  allow  for  the  use  of  two  files  concurrently. 

The  RKUTILIZ  nodule  could  be  improved  by  setting 
the  relations  with  the  proper  relationships  up  front,  before 
any  other  code.  In  that  way  the  system  can  access  any  of  the 
information  it  nay  need.  Also,  messages  are  needed  along  the 
way  indicating  to  the  user  what  is  talcing  place  and  a  way  to 
escape  if  necessary. 

Finally,  two  general  comments  about  system 
performance  are  appropriate.  First,  some  programs  do  not 
observe  programming  guidelines  that  would  result  in  low 
coupling  and  strong  cohesion.  Generally  this  is  due  to  the 
lack  of  programming  experience  on  the  part  of  the 
implementors,  and  should  be  reviewed.  Second,  throughout 
the  system  there  are  modules  that  require  the  ^setting  of 
relationships  between  the  majority  of  the  relations  that  make 
up  the  data  base.  Code  could  be  read  easier  if  this  task 
were  incorporated  into  a  procedure  and  called  when  it  was 
necessary. 

c.  User  Interface 

There  are  many  ways  to  improve  the  user 
interface;  some  of  the  more  significant  ones  include: 

-  As  currently  coded,  the  user  cannot  reverse 
direction  when  in  the  edit /browse  option  of 
the  Inventory  Menu  or  Pending  Menu. 

-  Similarly,  there  is  no  way  to  escape  gracefully 
when  in  the  above  mentioned  modules;  the  user 
must  go  through  all  of  the  files  to  continue. 


•  It  tlM  umt  «o«14  support  s  reduction  la  the 
auafeer  of  fields  la  the  Nftdlaf  mod  Iamtory 
reports,  they  could  bo  changed  lato  "xxa.rpt" 
files  sad  iaeluds  several  piscos  of  oqulpaant  per 
pops,  versus  oae  per  pope  es  now  coded. 

-  The  aeauf ecturer '  s  aeae  field  dVOJUUOl)  bes  been 
reduced  froa  30  to  20  characters  ia  order  to  fit  on 
a  DO  1342;  a  second  liae  of  MPPJUMB  could  be  added 
la  order  to  briap  the  field  leapth  back  to  30. 

-  Za  the  BLD.J>PBi  aodule,  if  a  piece  of  equipment  is 
TYF«_COO«  "I"  it  is  classified  as  (XPt).  Bach 
excess  IPS  itaa  aust  have  aa  Idle  Report  seat  to 
DZPBC.  The  Idle  Report  1s  singly  a  DO  1342  vlth 
the  dispositions  section  filled  ia  at  the  bo t too. 

At  the  aoaeat  the  DD  1342  information  is  printed 
out  on  a  blank  piece  of  paper.  Zt  would  be  aore 
coavenieat  to  have  it  print  out  on  a  blank  DD  1342 
(at  least  the  top  portion  of  this  doeuaeat) ;  the 
user  could  then  fill  in  the  rest  to  create  the  Idle 
Report . 

-  Also  within  the  BLD_pPSN  aodule.  iteas  Identified 
as  having  a  7000  series  stock  number  are  ADPB. 

They  are  written  up  on  a  SF-120  which  ia  sent  to 
DARBC.  The  necessary  information  for  each 
appropriate  record  is  currently  stored  in  a 
temporary  file  and  later  printed  out  in  a  report 
format  froa  which  a  SF-120  can  be  typed.  It 
would  be  far  aore  convenient  to  have  the  SF-120 
typed  automatically  after  first  instructing  the 
user  to  mount  the  fora  on  the  printer. 

-  There  have  been  soae  recent  changes  in  the  format 
of  the  fora  DD  1348-1.  with  slight  variations  from 
one  disposal  organisation  to  anothar.  Zt  may  be 
necessary  to  make  different  modules,  one  for  each 
fora,  and  allow  the  user  to  select  the  proper 
foraat  froa  a  menu. 


D.  CONCLUSIONS 

The  single  overlying  theme  of  this  effort  has  been  to 
answer  the  following  questions:  will  this  system  designed  by 
Ross  and  Smith  work  ?  If  so,  will  it  support  the  NFS  Supply 
Departaent  adequately?  And  if  this  is  so,  is  it  worth 
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mrmlfT  TIm  authors  boliara  that  tha  aaswar  to  all  thraa 
questions  ia  resoundingly  affirmative! 

Fro*  tha  ailing  standpoint,  tha  immediate  problaa  has 
haan  so:;Mhat  overcome  by  events.  By  management  dacraa,  soaa 
itaas  that  could  tachnically  ba  categorised  as  ninor  proparty 
will  not  ba  controllad  and  accountad  for  cantrally  (cost 
versus  banafit) .  Additionally,  also  by  nanagaaant  dacraa, 
only  now  equipment  will  ba  antarad  initially  and  axisting 
equipment  will  ba  addad  on  an  as -time-permits  basis. 
Consaguantly,  tha  systan  data  basa  sisa  is  largaly  unknown, 
but  it  is  raasonably  cartain  that  it  will  ba  snallar  than 
originally  astinatad  and  will  grow  slowly  anough  to  allow 
planning  for  future  capacity  expansion.  Currant  requirements 
can  ba  handled  by  tha  systan  as  designed  with  equipment  on 
order . 

Host  data  redundancy,  insertion  and  deletion  anomalies, 
and  other  similar  problems  have  been  eliminated  with  the 
degree  of  normalization  applied  to  the  original  Ross-Smith 
file  structure  design.  This  contributes  significantly  to 
data  base  integrity. 

System  performance  as  currently  coded  has  not  been 
maximized;  however,  the  basic  structure  of  the  code  is  sound. 
With  the  use  of  a  compiler  and  some  of  the  techniques 
mentioned  above  ("find"  versus  "locate",  "set  relation  to" 
versus  "join")  system  performance  will  be  adequate  for  the 
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ible  future. 
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dBase  ZZZ  Plus  contains  nuasrous  powerful  error  checking 
aids  such  as  the  "picture"  coasand  (an  edit  mask)  and  other 
functions  that  support  the  use  of  nenory  variables,  etc. 
These,  combined  with  user  interface  screens  coded  with 
prompts,  reminders,  and  helps,  should  provide  the  level  of 
error  checking  necessary  for  operation  at  the  clerk-typist 
level. 

Zf  properly  used  and  maintained,  the  on-line  data 
dictionary  will  provide  support  to  both  the  user  and  the 
follow-on  developer.  This  tool  will  provide  a  useful  point- 
in-time  reference  as  well  as  support  for  further  development, 
for  learning  the  system,  and  for  maintaining  the  system  and 
system  documentation. 

Finally,  the  system  as  designed  and  the  code  as  written 
should  be  transportable  to  other  U.  S.  Navy  commands  with 
minimal  modification.  Only  a  few  items  in  the  code  are  NPS 
unique  (e.g.  local  modifications  to  the  form  DD  1342) .  Navy 
commands  are  all  governed  by  the  same  NAVCOMPT  manual  and 
have  all  been  directed  to  centralize  the  accounting  of  minor 
property.  Consequently  the  structure  and  code  should  support 
a  generic  Navy  property  management  operation. 
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APPENDIX  A 


DATA  DICTIONARY  SOFTWARE  CODE 


The  following  contains  tbs  software  cods  contsinsd  in  ths 
Data  Dictionary  progran  DATADICT . PRC .  Bach  nodule  begins 
with  a  docunentaion  header.  This  header  contains  the  nane  of 
the  author,  the  date  that  the  code  waa  last  aodified,  and  a 
general  description  of  the  purpose  of  the  nodule. 

Additionally  listed  are  all  of  the  prograns,  fornats,  and 
data  base  files  ( . PR6 ,  .FMT,  .DBF  respectively)  that  the 
nodule  uses,  calls,  or  is  called  by. 
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•DATADICT.PtG 

•Author: 

* 

* Purpose : 

* 

*1/0  riles: 


•Called  iy: 
•Calls: 

* 


1.  A.  Vhitehouse 

25  Jue  INI 

To  allow  the  user  to  select  what  part  of 
the  data  dictioaary  he/ she  cares  to  display. 
ra.riLU.Dtr,  ra.DELU.Dtr,  ddpmkm.ddp, 
DD_.COVTAM.Dtr,  DD.nLU.rMT,  DD  DELKM.FlfT, 
DD.PAOM.rMT,  DD.COMTAM.rMT 
Mom 

DICnLI.rtC,  ELEMENTS . PRC ,  DICPIGBM.PEG, 
PGMPILU.PKG,  ADDTODZC . PEC 


clear 

set  talk  off 

store  "  "  to  dic.choice 
text 


PUS  DATA  DICTXOMAKT 


The  followiag  screes  will  allow  you  to  select  the  portios  of  the 
data  dictioaary  at  which  yoe  care  to  look.  Piles,  lists  the 
relatioas  used  with  ia  the  PUPS .  Date  eleaeats,  are  the  data 
eleaeats  which  are  used  ia  the  part  of  the  systea  which  is 
curreatly  ia  operatioa.  Progress,  gives  a  brief  descript ioa  of 
the  progress  which  aake  up  the  PMPS.  Progress  /  Piles  cross 
refereace,  lists  the  files  which  are  called  by  the  various 
programs. 


eadtext 
wait  to  coat 
clear 

do  while  .t. 

•  2,0  to  21,79  double 

3,2$  say  [Data  Dictioaary  Meau] 
4,1  to  4,78  double 
7,23  say  [Task  Code 


1.23  say 

9.23  say 


? 

? 

? 


10.23  say 

11.23  say 
12,23  say  [ 
•  14,23  say 


1 

2 

3 

4 


Dictioaary  Pile] 

Piles] 

Data  Eleaeats] 

Progress] 

Piles  /  Prograa  Cross  Refereace] 
Appead  Mew  Eatries] 

Quit] 


wait 


Eater  your  choice  (Task  Code) :  "  to  dic.choice 


do  case 

case  dic.choice 
do  diefile 


•1' 


case  dic.choice  -  '2' 


to  alMiati 

eaaa  4ic_ckoica  ■  *3' 

4o  ilcprpro 

ciw  tic  etoica  •  *4' 

40  PfBfilOO 

eoso  tic  cfcoico  ■  ‘S' 

to  otttotic 

cooo  tic_dwico  ■  *4* 
cloar 
rotors 

otWrvioo 

loop 


*o d  tototict.prp 


•DICFILE.PRG 

•Author:  B.  A.  Vhitehouse 

•Date:  25  June  1987 

•Purpoce:  This  program  allows  the  user  to  review  the  files 

•  data  dictionary. 

•I/O  Files:  DD  FILES. DBF,  DD  FILES. SCR,  DD.FILES.FMT, 

•  DD  FILES. DBT 

•Called  By:  DATADICT.PRG 

•Calls:  None 

clear 

f_naae  *  space (25) 

•10,5  say  "Enter  file  name:"  get  f_naae 

read 

use  dd.files 

set  format  to  dd_f iles 

edit  for  FILEJIAME  -  f.name 

close  all 

clear 

return 


•eof  dicfile.prg 


•I/O: 

•Cal 1*4  By: 
•Calls: 


B.  A.  Vhitehouse 
25  June  1987 

To  croato  a  acroon  for  inputting  changes  to  the 
BB.niiBS.DBr. 

nLEJUME,  DESCRIPTION,  CONTENTS,  USED  BY 
DICriLE.PlG,  ADDFILES.PRG 

Boa* 


1, 

19 

SAY 

"BATA  DICTIONARY  FOR  FILES/RELATIONS" 

1. 

0 

SAY 

"FILE  NAME" 

J. 

12 

err 

DD_FIL*3-> FILE.NAME 

5, 

«J 

BAY 

«. 

41 

SAY 

"•  To  view  a  MEMO  proas 

7. 

0 

SAY 

"File  Description:" 

7. 

22 

OCT 

DD.FILES- >  DESCRIPTN 

7, 

41 

SAY 

"*  <Ctrl><PgDn>,  to  return 

1. 

41 

SAY 

”•  froa  NEMO  press  <Ctrl><PgDn>. 

9, 

41 

SAY 

10 

41 

SAY 

*•  Press  <Esc>  for  previous  menu. 

11. 

• 

SAY 

"Fields  contained  in  file:" 

11 

10 

OST 

DO  .FILES- CONTENTS 

11 

41 

SAY 

"  • 

11 

41 

SAY 

"•  Press  <PgBa>  for  next  filenaa* 

:  j 

41 

SAY 

n 

0 

SAY 

"This  file  is  used  by:" 

24 

orr 

D0_FILES- >QSED_BY 

••of  m  riLMt  .nrr 


‘ELEMENTS. PEG 

* Author:  B.  A.  Whitehouse 

•Date:  25  June  1987 

•Purpose:  This  program  allows  ths  user  to  review  the 

*  the  elements  of  the  data  dictionary. 

*1/0  Files:  DD_DELEM.DB7,  OD  DELEH.SCR,  DD  DELEM.FMT, 

*  DD  DELEM.DBT 

‘Called  By:  DATADICT.PRG 

‘Calls:  None 

clear 

n_naae  *  space (30) 

•10,5  say  "Enter  nicknaae  in  all  CAPS:"  get  n_naae 
read 

use  dd_delea 

set  foraat  to  ddjdelea 

edit  for  NICKNAME  *  n_naae 

close  all 

clear 

return 

*eof  element s.prg 
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•DD_DELEH . FMT 
* Author: 

B.  A.  Vhitehouse 

•Date: 

25  June  1987 

•Purpose: 

To  uake  input  and  changes  to  the  DD_DELEM.DBF 

•I/O: 

NICKNAME,  FULLNAME,  DEFINITION,  FORMAT,  USEDJ 

•Called  By: 

ELEMENTS. PRG,  ADDELEM.PR6 

•Calls: 

None 

1,  22 

SAY 

"DATA  ELEMENTS  DATA  DICTIONARY” 

5,  0 

SAY 

"Nickname:" 

5,  12 

GET 

DD_DELEM- >  NICKNAME 

8,  0 

SAY 

"Full  Nane:" 

8,  12 

GET 

DD.DELEM- >  FULLNAME 

11,  0 

SAY 

"Definition:” 

11,  12 

GET 

DD_DELEM- >  DEFINITION 

11,  20 

SAY 

"To  display  MEMO  press  <Ctrl><PgDn>," 

12,  26 

SAY 

"Press  <Esc>  to  return." 

14,  0 

SAY 

"Format :" 

14,  12 

GET 

DD  DELEM-> FORMAT 

17,  0 

SAY 

"Used  in:" 

17,  12 

GET 

DD_DELEM- >  USED_IN 

•eof  DD.DELEM. 

FMT 

•DICPRGRM . PRG 

* Author:  B.  A.  Whitehouse 

•Purpose:  This  program  allows  the  user  to  view  the  data 

*  dictionary  listing  the  programs  and  their 

*  outlined  purpose. 

•I/O  Piles:  DDJPRGRM.DBF,  DD_PRGRM.FMT,  DD_PRGRM.SCR 

*  DD  PRGRM.PBT 

•Called  By:  DATADICT.PRG 

•Calls:  None 

clear 

p_name  *  space (8) 

•10,5  say  "Enter  program  name  in  all  CAPS:"  get  p_name 
read 

use  dd_prgrm  index  pgm_name 
select  2 

use  call_pgm  index  namecall 
select  1 

set  relation  to  pgmname  into  calljpgm 

set  format  to  dd_prgrm 
edit  for  PGMNAME  *  p_name 

clear 

return 

•eof  dicprgrm.prg 


<5 


*DD_PRGRM.FMT 

•Author:  B.  A.  Vbitehouse 

•Date:  25  June  1987 

•Purpose:  To  sake  a  screen  with  which  to  sake  changes  and 

*  input  data  to  DD  PRGRM.DBF. 

•I/O:  PGMNAME,  FULLNAME,  PURPOSE,  CALLS,  CALLEDBY 

•Called  By:  DICPRGRM.PRG,  ADDPGM.PRG 

•Calls:  None 


•  1,  24  SAY  "DATA  DICTIONARY  OF  PROGRAMS" 

•  4,  0  SAY  "Prograa  name:” 

•  4,  14  GET  DD_PRGRM- >  PGMNAME 

•  4,  27  SAY  "(All  prograa  names  end  in  .PRG) " 

•7,  0  SAY  "The  module  name  is" 

•  7,  19  GET  DD_PRGRM- >  FULLNAME 

#10,  0  SAY  "The  purpose  of  this  prograa  is” 

•  10,  32  GET  DD_PRGRM- > PURPOSE 

•  10,  39  SAY  "To  display  press  <Ctrl><PgDn>," 
•11,  46  SAY  ”<Esc>  to  return." 

•13,  0  SAY  "This  prograa  calls:" 

•  14,  12  GET  CALL  JPGM- >  CALLS 

•16,  0  SAY  "This  prograa  is  called  by:" 

•  17,  12  GET  C ALL_PGM- >  CALLEDBY 


•eof  DD  PRGRG.FMT 


‘PGHPILES.PRG 

* Author:  B.  A.  Vhitehouse 

‘Date:  25  June  1987 

‘Purpose:  This  programs  allows  the  user  to  view  the 

*  file  /  program  cross  reference  file. 

*1/0  Piles:  DD  COHTA.DBF,  DD  CONTA.FMT,  DD  CONTA.SCR 

‘Called  By:  DATADICT.PRG 

‘Calls:  None 

clear 

pjaame  *  space (8) 

•10,5  say  "Enter  program  name  in  all  CAPS:"  get  p_name 
read 

use  dd_conta 

set  format  to  dd_conta 

edit  for  PGMNANE  *  p_name 

clear 

return 


‘eof  PGMFILES.PRG 


*DD jCOMTA . FHT 

* Author:  B.  A.  Whitehouse 

•Date:  25  June  1987 

•Purpose:  To  create  a  screen  with  which  to  nake  changes 

*  and  input  to  the  DO  CONTA.DBF. 

*1/0:  PGMNAME,  USES 

•Called  By:  PGMFILES.PRG 


•  2,  20  SAY  "PROGRAM  /  FILE  CROSS  REFERENCE" 

•5,  0  SAY  "Progran  naae: " 

t  5,  15  GET  DD  jCONTA- >  PGMNAME 
•7,  0  SAY  "Files  this  progran  uses:” 

•  7,  25  GET  DD  CONTA->USES  FUNCTION  "S54”  PICTURE 

"mmmmxmmmmmxxxxxxxxmxxxxxxxxmxxxxxxxxxxm1 


*eof  DD  CONTA.FMT 


II 


•ADDTODIC.PRG 

* Author:  B.  A.  Whitehouse 

•Date:  25  June  1987 

•Purpose:  To  allow  the  user  to  select  some  portion  of  the 

*  data  dictionary  to  which  they  wish  to  append 

*  to  append  additional  entries. 

*1/0  Files:  DDJFXLES.DBF,  DD  DELEM.DBF,  DDPRGRN.DBF, 

*  DD  CONTAN.DBF 

•Called  By:  DATADICT.PRG 

•Calls:  ADDFXLES.PRG,  ADDELEM.PRG,  ADDPGM.PRG, 

*  ADPGMFIL.PRG 

clear 

set  talk  off 

store  "  "  to  dic_choice 
text 

PUPS  DATA  DICTIONARY 

The  following  screen  will  allow  you  to  select  the  portion  of  the 
data  dictionary  to  which  you  care  to  append  new  information. 

Files,  lists  the  relations  used  with  in  the  PMPS.  Data 
elements,  are  the  data  elements  which  are  used  in  the  part  of 
the  system  which  is  currently  in  operation.  Programs,  gives  a  brief 
description  of  the  programs  which  make  up  the  acquisition  portion  of 
the  system.  Programs  /  Files  cross  reference,  lists  the  files  which 
are  called  by  the  various  programs. 

endtext 
wait  to  cont 
clear 

do  while  .t. 

•  2,0  to  18,79  double 

•  3,13  say  [Appending  New  Information  to  Data  Dictionary 
Menu] 

•  4,1  to  4,78  double 

•  7,23  say  [Task  Code  Dictionary  File] 

•  8,23  say  [  1  Files] 

•  9,23  say  [  2  Data  Elements] 

•  10,23  say  [  3  Programs] 

•  11,23  say  [  4  Files  /  Program  Cross 

Reference] 

•  13,23  say  [  5  Quit] 

? 

7 

7 

wait  N  Enter  your  choice  (Task  Code):  "  to  dic_choice 

do  case 

case  die  choice  ■  '1* 
do  addfiles 


cm*  dic_choi.ee  ■  *2' 
do  addelea 

case  dic_choi.ce  *  '3' 
do  addpga 

case  dic.choice  *  '4' 
do  adpgafil 

case  dic_choice  *  '5' 
clear 
return 

otherwise 

loop 


endcase 

enddo 


*eof  ADDTODIC . PR6 


•ADDFILES.PRG 

* Author:  B.  A.  Vhitehouse 

•Date:  25  June  1987 

•Purpose:  This  progran  allows  the  user  to  append  new  entries 

*  to  the  files  data  dictionary. 

•I/O  Files:  DD  FILES. DBF,  DD_FILES . SCR ,  DD_FILES.FMT, 

*  DD  FILES. DBT 

•Called  By:  ADDTODIC.PRG 

•Calls:  None 

clear 

f_naae  *  space (25) 

•10,5  say  "Enter  file  naae:"  get  f_nane 

•13,7  say  "CHECK  YOUR  ENTRY!" 

read 

use  dd_files 
append  blank 

replace  file_naae  with  f_naae 
set  format  to  dd_files 
edit  for  filename  ®  f_name 

close  all 

clear 

return 


•eof  ADDFILES . PRG 


‘ADDILEH.PRG 

* Author:  B.  A.  Vhithehouse 

‘Date:  25  June  1987 

‘Purpose:  This  prograss  allows  the  user  to  append 

•  additional  elesents  to  the  data  dictionary 
*1/0  Files:  DD  DELEM.DBF,  DD  DEL EM. SCR,  DD_DELEM . FMT , 

•  DD  DELEM.DBT 

‘Called  By:  ADDTODIC.PRG 
‘Calls:  None 

clear 

n_nane  =  space (30) 
full.n  -  space (45) 
form  *  space (55) 
where  *  space (65) 

•  10,5  say  "Enter  nickname  of  data  elesent  in  all  CAPS  : 

•  11,10  get  n_nase 

•13,5  say  "Enter  full  nane  (lower  case):" 

•  14,10  get  fulljn 

•  16,5  say  "Enter  format :"  get  form 

•  18,5  say  "Enter  where  the  element  is  used:" 

•  19,10  get  where 
read 

use  dd.delem 
append  blank 

replace  nickname  with  njname 
replace  fullname  with  full_n 
replace  format  with  form 
replace  used.in  with  where 
set  format  to  dd_delem 
edit  for  NICKNAME  *  n_name 

close  all 

clear 

return 


*eof  ADDELEM.PRG 


B.  A.  Vhitehouse 
25  June  1987 

This  program  allows  the  user  to  append  new  entries 

to  the  portion  of  the  data  dictionary  listing  the 

dictionary  listing  the  programs  and  their  purpose. 

DD_PRGRM.DBF,  DD_PRGRM . FMT ,  DD.PRGRM.SCR 

BD  PRGRM.DBT 

ADDTODIC.PRG 

None 


ans  *  ’Y* 
p_nane  *  space (8) 
fullja  *  space (30) 
tocall  ■  space (60) 
called_by  ■  space (45) 

•  5,5  say  "Enter  progran  nane  in  all  CAPS:"  get  p_naae 
•7,5  say  "Enter  progams  full  name:" 

•8,10  get  full_n 

•  10,5  say  "Enter  what  programs  it  calls:" 

•  11,10  get  tocall 

•13,5  say  "Enter  what  programs  it  is  called  by:" 

•  14,10  get  called_by 

read 

use  dd_prgrm  index  pgm.name 
append  blank 
select  2 

use  call_pgm  index  namecall 
append  blank 
select  1 

replace  pgmname  with  p_name 
replace  fullname  with  full_n 
select  2  . 

replace  pgmname  with  p_nane 
replace  calls  with  tocall 
replace  calledby  with  called_by 
set  format  to  dd_prgrm 
edit  for  PGMNAME  -  p.name 
clear 

close  all 

clear 

return 

*eof  ADDPGM.PRG 
*Z 
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* ADDPGM.PRG 
* Author: 
*Date: 

* Purpose: 

* 

* 

*1/0  Files: 
* 

‘Called  By: 
*Calls: 

clear 


•ADPGMFIL.PBG 

•Author: 

B.  A.  Whitehouse 

•Date: 

25  June  1987 

•Purpose: 

This  programs  allows  the  user  to  append  new 

* 

entries  to  the  file  /  program  cross  reference 

• 

file. 

•I/O  Files: 

DD  COMTA. DBF,  DD  COHTA.FMT,  DD  CONTA.SCB 

•Called  By: 

ADDTODIC.PRG 

•Calls: 

None 

clear 

ans  «  'Y' 

use  dd_conta 

do  while  ans  » 

'y'  .or.  ans  ■  *Y* 

clear 

p_name  *  space (8) 

filename  * 

space (12) 

•  10,5  say 

"Enter  program  name  in  all  CAPS:"  get  pjaame 

•  12,5  say 

"Enter  what  file  the  program  uses:"  get  filename 

•  14,10  say  "There  is  one  record  for  each  file  a  program  uses." 

•  15,10  say  "Use  entire  file  name  to  include  .prg,  dbf,  etc." 

•  18,7  say  "Do  you  want  to  enter  another  (Y/N)."  get  ans 

read 

append  blank 

replace  pgmname  with  p_nane 
replace  uses  with  filename 
enddo 

close  all 

clear 

return 

*eof  ADPGMFIL.PRG 


APPENDIX  B 


ACQUISITIONS  MODULES  SOFTWARE  CODE 

The  following  contains  the  software  code  contained  in  the 
nodules  that  support  the  equipment  acquisition  process  at 
MCD.  Each  module  begins  with  a  documentaion  header.  This 
header  contains  the  name  of  the  author,  the  date  that  the 
code  was  last  modified,  and  a  general  description  of  the 
purpose  of  the  module.  Additionally  listed  are  all  of  the 
programs,  formats,  and  data  base  files  ( . PRG ,  . FMT ,  .DBF 
respectively)  that  the  module  uses,  calls,  or  is  called  by. 
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•PMPS.PRG 
* Author : 
•Date: 
•Purpose: 

* 

* 

* 

•I/O: 

•Called  By: 
•Calls: 


W.  T.  Key 

17  July  1987  (Mod.  9/01/87  BAN) 

This  is  the  program  that  starts  it  all;  it 
presents  the  user  with  a  menu  which  allows 
entry  into  the  Acquisition,  Disposition  or 
Ad-Hoc  modules. 

None  (all  .scr,  . dbf ,  . fmt,  etc  go  here) 
None  (appropriate  .prg  go  here) 

ACQUXSIT . PR6 ,  DISPOSIT. PRG,  AD_HOC.PRG 


clear 

set  talk  off 
set  status  off 
store  "  "  to  choice 


do  while  .t. 

•2,0  to  21,79  double 
•3,33  say  [Main  Menu] 

•4,1  to  4,78  double 

•6,20  say  [Task  Task  Code] 

•8,20  say  [Acquisitions  1] 

•9,20  say  [Process  Disposition  Transactions  2] 
•10,20  say  [Disposition  Management  3] 

•11,20  say  [Ad  Hoc  Requests  4] 

•13,20  say  [Quit  5] 


•15,15  say  [Enter  Task  Code:]  get  choice 
read 

do  case 

case  choice  *  '1' 
do  acquisit.prg 
case  choice  ■  *2' 
do  proc_trn.prg 
case  choice  ■  ' 3 ' 
do  disp_mgt 
case  choice  -  '4' 
do  ad_hoc . prg 
case  choice  -  '5' 
clear 
exit 

otherwise 

loop 

endcase 

enddo 

set  status  on 


•Eof  PMPS.PRG 


*  ACQUIS  IT.  PRG 

* Author:  W.  T.  Key 

•Date:  17  July  1987 

•Purpose:  Provides  a  control  structure  for  access  to  the 

*  various  sub-modules  of  the  acquistion  process. 

*  Access  to  each  is  via  menu  presented  in  this 

*  module . 

*1/0:  None 

*Called  By:  PMPS.PRG 

•Calls:  NT_PEN  R.PRG,  EQ_RECPT . PRG ,  MAKE1342.PRG, 

*  PRINT1342 . PRG ,  VIEW1342.PRG,  INV  MENU . PRG , 

*  PENDMENU . PRG 

clear 

store  "  "  to  choice 
do  while  . t. 

92,25  say  [ACQUISITIONS  MAIN  MENU] 


94.23  say  [Task  Task  Code] 

96.23  say  [Notice  of  Pending] 

97.23  say  [Receipt  1] 

99.23  say  [Equipment  Receipt  2] 

911.23  say  [Reconcile  1342  3] 

913.23  say  [Print  1342  4] 

915.23  say  [Modify  1342  5] 

917.23  say  [Inventory  Files  6] 

919.23  say  [Pending  Files  7] 

921.23  say  [Return  to  Main  Menu  8] 


923,15  say  [Enter  Task  Code:]  get  choice 
read 

do  case 

case  choice  -  *1* 
do  nt_pen_r .prg 

case  choice  *  '2' 
do  eq_recpt.prg 

case  choice  *  '3' 
do  makel342.prg 

case  choice  ■  '4' 
do  prntl342.prg 

case  choice  ■  ' 5 ' 
do  viewl342.prg 

case  choice  ■  '6' 
do  invmenu.prg 

case  choice  -  '7* 
do  pendmenu.prg 


•8* 


case  choice  ■ 
clear 
return 
otherwise 
loop 

endcase 

enddo 

*Eof  ACQUIS IT. PRO 


*NT_PEN_R . PRG 
* Author : 
*Date: 

* Purpose: 

* 

* 

* 

*1/0: 

* 

*Called  By: 
*C«lls: 


clear 

set  talk  off 
store  .t.  to  check 
text 


This  module  lets  you  enter  data  on  a  new  piece  of 
equipment  which  has  not  been  received  yet.  You  will 
be  entering  data  on  the  next  four  screens  in  order  to 
start  building  your  NS  1342. 


endtext 
wait  to  cont 
clear 

*This  section  checks  for  duplicate  NIDs  before  entering  the 
data. 

do  while  check 

do  getnid.prg 
use  pending  index  nidpend 
find  6NXD 
if  .not.  FOUND 0 
-  store  .f.  to  check 
close  all 
clear 

else 

store  .t.  to  check 
text 

The  NID  you  have  tried  to  enter  is  a 

duplicate . 

Please  check  the  number  and  try  again. 


N.  T.  Key 

09  August  1987  (Mod  9/1/87  BAN) 

Initial  data  regarding  equipment  which  has  been 
ordered  is  entered  into  the  database.  This 
module  is  the  entry  point  of  a  new  piece  of 
equipment.  It  is  the  beginning  of  a  WS1342. 
PENDING. DBF,  PROPERTY. DBF,  PURCHASE . DBF , 

PENDING . FMT ,  PROPERTY . FMT ,  PURCHASE . DBF 
ACQUXSIT . PRG  ( PMPS . PRG ) 

GETNID.PRG 
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end text 
wait  to  cont 
clear 
close  all 

endif 

enddo 

use  pending  index  nidpend 
append  blank 
replace  NID_NO  with  NID 
set  format  to  pending 
edit  for  nid_.no  ■  NID 
close  all 

use  property  index  nidjprop 
append  blank 
replace  HID _N0  with  NID 
set  format  to  property 
edit  for  nid_.no  -  NID 
close  all 

use  purchase  index  nid_purc 
append  blank 
replace  NID_NO  with  NID 
set  format  to  purchase 
edit  for  nid_no  *  NID 
close  all 


clear 

return 


*  PENDING .  FNT 

* Author:  H.  T.  Key 

*Date:  17  July  1987 

*Purpose:  Calls  for  a  "P"  to  ba  put  in  the  Pend_stat 

*  field  of  PENDING. DBF. 

*1/0:  PENDING. DBF 

*Called  By:  NT_PEN_R . PRG 

*Calls :  None 


•  6,  16  SAY  "Pending  Status" 

•  6,  33  GET  PENDING** > PEND  STAT  FUNCTION  "a"  PICTURE  "x 

•  8,  15  SAY 


•  9,  15  SAY  "*  Please  enter  a  ' P '  in  the  Pending  Status 

Field.*" 

•10,  15  SAY  "*  The  next  screen  will  appear  automatically. 
*» 

•11,  15  SAY 


*Bof  PENDING. FMT 


•PROPERTY. FMT 
•Author:  W.  T.  Key 

•Dot*:  3  August  1987 

•Purposs:  Allows  user  to  fill  those  PROPERTY. DBF  data 

*  fields  known  before  equipment  has  arrived. 

•I/O:  PROPERTY. DBF 

•Called  By:  NT_PBN_R . PRG 

•Calls :  None 


5, 

9 

SAY 

NMfg  Name" 

5, 

28 

GET 

PROPERTY- > MFG_NAME 

7, 

9 

SAY 

"Noun  Name" 

7, 

28 

GET 

PROPERTY- >NOUN_NAME 

9, 

9 

SAY 

"Mfg  Model  Number" 

9, 

28 

GET 

PROPERTY- >MFG_MOD_NO 

11. 

9 

SAY 

"Property  Code" 

11, 

28 

GET 

PROPERTY- >  PROP_CODE 

13, 

9 

SAY 

"Department  Code" 

13, 

28 

GET 

PROPERTY- >  DEPTjCODE 

•15,  0  SAY  "*•  Press  <CTRL>  <END>  to  save  the  data  you 

just  entered.  *•" 


Eof  PROPERTY. FMT 


* PURCHASE . FMT 
•Author:  W.  T.  Key 

•Date:  3  August  1987 

•Purpose:  Allows  the  user  to  fill  in  certain  PURCHASE. DBF 

•  data  fields  which  are  known  prior  to  equipment 

*  arrival . 

•I/O:  PURCHASE. DBF 

•Called  By:  NT_PEN_R . PRG 
•Calls :  None 


•  6,  11  SAY  "Consignor1* 

•  6,  26  GET  PURCHAS E-  > CON S IGNOR 

•  8,  11  SAY  "Date  Entered" 

•  8,  35  GET  PURCHASE- > DATE_RECV 
•10,  11  SAY  "Purchase  Order  Number" 

•10,  35  GET  PURCHASE- >PO_NO 
•12,  11  SAY  "Requisition  Number" 

•12,  35  GET  PURCHASE- >REQN_NO 

•14,  11  SAY  "•*  For  the  Date  Entered,  use  today's  date.  ••" 
•16,  8  SAY  ”**  Press  <CTRL>  <END>  to  save  the  data  you 
just  entered.  *•" 


• Eof  PURCHASE . FMT 


•GKH1D.PRG 

* Author:  W.  T.  Key 

*Date:  3  August  1987 

* Purpose:  Solicits  NID  number  from  the  user  shows  the 

*  user  a  template  then  checks  for  proper  length 

*  and  alphabetic  characters.  It  continues  to 

*  loop  until  a  proper  NID  number  is  input. 

*1/0:  None 

*Called  By:  (practically  all) 

*Calls:  None 


clear 

set  talk  off 
public  NID 

store  "62271  "  to  NID 

store  .t.  to  check 

do  while  check 

•12,05  say  [Enter  the  NID  number  followed  by  <RTN> : ] 

•12,45  get  NID  picture  •99999-999999' 
read 

if  len(rtrim(NID) )  <  12 

store  .t.  to  check 

•14,10  say  [The  NID  number  you  input  was  too  short;] 
•15,10  say  [please  check  and  try  again.] 

•16,10  say  [] 

wait  to  continue 
clear 

else 

store  .f.  to  check 
clear 

endif 

enddo 


*Eof  GETNID.PRG 


•BQ_RECPT . PRG 
* Author:  W.  T.  Key 

*Date:  17  July  1987 

•Purpose:  Once  an  item  of  Plant  or  Minor  property  is 

*  received  the  pending  file  is  checked  for 

*  accuracy,  the  date  received  and  mfg's  serial 

*  number  are  added.  The  result  of  this  process  is 

*  the  WS  1342+  and  is  now  ready  to  be  sent  to  the 

*  destination  department. 

*1/0:  PENDING. DBF 

•Called  By:  ACQUISIT.PRG  (PMPS.PRG) 

•Calls:  GTWS1342 . PRG 

clear 

set  talk  off 
public  prop_type 
store  .t.  to  check 
store  .t.  to  check_yar 
store  "  "  to  prop_type 

text 

************************************** 

At  this  time  you  will  be  requested  to 
compare  the  information  in  the  pending 
file  to  the  information  on  the  piece 
of  equipment  which  actually  arrived. 

You  may  make  necessary  changes  in  the 
highlighted  fields. 

************************************* 

endtext 
wait  to  cont 
clear 

do  while  check 

do  getnid.prg 
use  pending  index  nidpend 
find  &NID 
if  .not.  FOUND () 

store  .t.  to  check 

text 


There  is  nothing  in  the  pending  file 
with  the  NID  number  you  just  entered. 
Please  check  it  and  try  again. 
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•ndtaxt 


wait  to  eont 
clear 

else 

if  upper (pend_s tat)  ■  "R" 
store  .t.  to  check 
text 

************************************** 

This  item  has  already  been  recieved. 
Please  enter  a  different  NID  Number. 

************************************** 

endtext 

wait  to  cont 
clear 

else 

store  .f.  to  check 
endif 
endif 
enddo 

do  while  check_var 

accept  "Enter  P  for  Plant  or  M  for  Minor  Property  and  <RTN> : 
"  to  prop_type 

if  upper (prop_type)  *  "P" 
store  .f.  to  cheeky var 

else 

if  upper (prop_ type)  ■  "M" 
store  .f.  to  check_var 

else 

store  .t.  to  check_var 
text 


Only  P  or  M  are  acceptable  characters. 
Please  try  again. 


endtext 
wait  to  cont 
clear 
endif 
endif 
enddo 

do  gtwsl342.prg 


clear 


return 

*Eof  EQ_RECPT . PRG 


•GTWS1342 . PRG 


•Author : 
•Date: 
•Purpose : 

* 

* 

* 

•I/O: 

* 

•Called  By: 
•Calls: 


W.  T.  Key 

30  June  1987  (Mod  9/1/87  BAN) 

This  nodule  allows  MCD  to  £111  in  additional 
data  about  a  piece  of  equipnent  once  it  has 
arrived.  It  calls  three  dbfs  and  their 
attendant  screens  for  ease  of  data  entry. 
PROPERTY. DBF,  PENDING . DBF ,  PURCHASE. DBF, 

PROP  1 . FMT , PEND_1 . FMT ,  PURCH_1 . FMT . 
BQ_RECPT.PRG  (ACQUIS IT. PRG)  ((PMPS.PRG)) 

None 


clear 

set  talk  off 


use  pending  index  nidpend 
find  &NID 

replace  pend_stat  with  NRM 
set  format  to  pend_l 
edit  for  nid_.no  *  NID 
clear 


use  property  index  nidjprop 
find  &NID 

set  format  to  prop_l 
edit  for  nid_no  «  NID 
clear 

use  purchase  index  nid_purc 
find  &NID 

set  format  to  purchJL 
edit  for  nid_no  »  NID 
clear 

close  all 
return 


•Bof  GTHS1342 . PRG 


‘PEND_1.FMT 

* Author:  W.  T.  Key 

‘Date:  3  August  1987 

‘Purpose:  Allows  user  to  change  the  value  in  pend_stat 

*  from  ’P*  to  'R'. 

*1/0:  PENDING. DBF 

‘Called  By:  GTWS1342.PRG 
‘Calls:  None 


•  6,  14  SAY  "NID  Nuaber" 

•  6,  35  Get  pending- >nid_no 

•  8,  14  SAY  "Pending  Status" 

•  8,  39  GET  PENDING- > PEND_STAT 

•  10,  12  SAY  "***************“““***“““““*" 

•  11,  12  SAY  "*  Be  sure  the  Pending  Status  is  R.‘" 

•  12,  12  SAY  "a**********************************" 

•  15,  3  SAY  "“  If  everything  looks  correct,  press  “n 

•  16,  5  SAY  "“  <CTRL>  <END>  to  save  the  data. 


Bof  PEND_1 . FMT 


*PR0P_1.FMT 
* Author : 
•Date: 
•Purpose: 

* 

* 

•I/O: 

•Called  By: 


W.  T.  Key 
5  August  1987 

Allows  user  to  fill  in  data  fields  in  the 
PROPERTY. DBF  which  cannot  normally  be  filled 
in  until  the  equipment  has  arrived. 

PROPERTY. DBF 
GTWS1342.PRG 


•Calls: 

None 

1. 

13 

SAY 

"NID  Number n 

•1, 

32 

GET 

PROPERTY- >NID_NO 

3, 

13 

SAY 

"Mfg  Name" 

3, 

32 

GET 

PROPERTY- > MFG_NAME 

5. 

13 

SAY 

"Mfg  Serial  Number" 

5, 

32 

GET 

PROPERTY- > MFG_SER_NO 

7, 

13 

SAY 

"Noun  Name" 

7, 

32 

GET 

PROPERTY- >NOUN_NAME 

9. 

13 

SAY 

"Mfg  Model  Number" 

9, 

32 

GET 

PROPERTY- >  MFG_MOD_NO 

11, 

13 

SAY 

"Property  Code" 

11. 

32 

GET 

PROPERTY- >  PROP jCODE 

13, 

13 

SAY 

"Department  Code" 

13, 

32 

GET 

PROPERTY- >DEPT_CODE 

15, 

0 

SAY 

"••  Add  or  change  data  as  needed 

17,  0 


"**  Press  <Ctrl>  <End>  to  save  the  data.  **' 


Eof  PR0P_1.FMT 


*PURCH_1.FMT 
* Author : 
•Date: 
•Purpose: 

* 

* 

•I/O: 

•Called  By: 


W.  T.  Key 
5  August  1987 

Allows  user  to  fill  in  data  fields  in  the 
PURCHASE. DBF  which  normally  cannot  be  filled 
until  the  equipment  has  arrived. 

PURCHASE. DBF 
GTWS1342 . PRO 


•Calls :  None 


2, 

0 

SAY 

”NID  Number” 

2, 

23 

GET 

PURCHASE- >NID_N0 

4, 

0 

SAY 

"Consignor” 

4, 

23 

GET 

PURCHASE- >  CONS IGNOR 

6, 

0 

SAY 

"Date  Received” 

6, 

23 

GET 

PURCHASE- >DATE_RECV 

8, 

0 

SAY 

"Purchase  Order  Number” 

8, 

23 

GET 

PURCHASE- >PO_NO 

10, 

0 

SAY 

"Requisition  Number” 

10, 

23 

GET 

PURCHASE- >REQN_N0 

•12,  0  SAY  "**  Be  sure  to  change  the  Date  Received  field 

to  the  actual  Date  Received.**” 


•14,  0  SAY  "•*  Add  or  change  other  data  as  needed.  ••” 
•15,  0  SAY  "**  Press  <Ctrl>  <End>  to  save  the  data  **” 


Eof  PURCHJL . FMT 


j 

I 
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♦MAKE1342 . PRG 


♦Author : 

♦Date: 

♦Purpose: 

* 

* 

* 

* 

♦I/O: 

♦Called  By: 
♦Calls: 


W.  T.  Key 
20  July  1987 

Once  a  piece  of  equipment  has  been  sent  to  the 
destination  department  and  the  WS1342  returned, 
there  is  enough  information  to  fill  out  a  proper 
DD1342.  This  module  is  where  that  function  is 
done. 

PLANT. DBF,  INV_INFO . DBF ,  PLANT. FMT,  INV_INFO . FMT 
ACQUIS IT. PRG  (PMPS.PRG) 

STOCK. PRG 


clear 

set  talk  off 
text 


You  are  now  going  to  enter  the  rest  of  the  data 
needed  for  a  complete  DD1342.  There  will  be  five 
screens  with  fields  to  fill  in.  Remember  to  press 
<CTRL><END>  to  save  the  information  entered. 


endtext 

wait  to  continue 
do  getnid 

use  plant  index  nidplant 
append  blank 
replace  nidjno  with  NID 
set  format  to  plant 
edit  for  nid_.no  ■  NID 
clear 

use  inv_info  index  nid_inv 

append  blank 

replace  nidjno  with  NID 

set  format  to  inv_info 

edit  for  nidjno  *  NID 

clear 

close  all 

do  stock.prg 

clear 

return 

♦Eof  MAKE1342 . PRG 


112 


•PLANT. PUT 

•Author:  W.  T.  Key 

•Date:  3  August  1987 

•Purpose:  Provides  screen  for  user  to  fill  the  PLANT. DBF 

•  data  fields  known  after  WS1342  has  returned  from 

*  destination  department. 

•I/O:  PLANT. DBF 

•Called  By:  MAKB1342.PRG 
•Calls:  None 


•  5,  18  SAY  "Commodity  Code" 

•  5,  32  GET  PLANT- >COMOD  CODE 

•7,  7  SAY  "Length" 

•  7,  17  GET  PLANT- > LENGTH 

•  7,  44  SAY  "Mfg  Code" 

•  7,  54  GET  PLANT- > MFGjCODE 

•9,  7  SAY  "Non  Avail  Number" 

•  9,  25  GET  PLANT- >NON_AVL_NO 

•  9,  44  SAY  "Power  Code" 

•  9,  56  GET  PLANT- >PWR_C ODE 

•11,  7  SAY  "Weight" 

•11,  17  GET  PLANT- > WEIGHT 
•11,  33  SAY  "Width" 

•11,  40  GET  PLANT- > WIDTH 
•11,  55  SAY  "Height" 

•  11,-62  GET  PLANT- >  HEIGHT 

•  15,  4  SAY  "**  Press  <CTRL>  <BND>  to  save  the  data  you 

just  entered.  **" 


Eof  PLANT . FMT 


* INV— INFO . FMT 
* Author:  W.  T.  Key 

•Date:  3  August  1987 

* Purpose:  Provides  date  entry  screen  for  the 

*  1NV..INP0 . DBF ;  called  after  WS1342  has  returned 

*  from  the  destination  department. 

*1/0:  INV_IHFO . DBF 

•Called  By:  MAKB1342.PRG 

•Calls :  None 


•  6,  18  SAY  "Inventory  Date" 

•  6,  36  GET  INV_INFO- > INV  DATE 

•  8,  18  SAY  "Julian  Date" 

•  8,  36  GET  INV  INFO- > JULIAN 
•10,  18  SAY  "Location" 

•10,  36  GET  INV_INFO-> LOCATE 

®  2  SAY  "**  Press  <CTRL>  < END >  to  save  the  data  you  iust 

entered.  **" 


•Eof  INV  INFO. FMT 


* STOCK. PRO 

* Author:  N.  T.  Key 

*Date:  13  July  1987  (Mod  9/1/87  BAW) 

* Purpose:  This  program  is  called  after  equipment  has  gone 

*  to  the  destination  department  and  the  WS1342  has 

*  come  back  with  additional  data  added  by  the 

*  department.  It  also  checks  the  stock  number  for 

*  duplication  to  preclude  duplicating  information 

*  IN  the  physical  description  field  of 

*  ITBMJDBS . DBF .  Zf  the  stock  no.  is  new  it 

*  updates  both  MFG.INFO  and  ITEM.DES ,  if  it's  a 

*  dupe  it  checks  to  be  sure  that  the  duplication 

*  is  intentional  and  just  updates  the  MFG_INFO 

*  database . 

*1/0:  M76  INFO. DBF.  ITBM.DES .DBF;  MFG_.INFO.FMT, 

*  ITBM_DES . FMT 

* Cal led  By:  MAKS1342 . PRG  { ACQUIS IT. PRG)  ((PMPS.PRG)) 

•Calls :  None 

set  talk  off 

store  .f.  to  not.found 

store  'y'  to  check 

store  "  "to  stk_.no 

do  while  .not.  not_found 
clear 

accept  "Enter  the  Stock  Number  of  the  equipment:  to 

stk_.no 

use  item_des 

locate  for  stock_.no  ■  stk.no 
if  eof () 

store  .t.  to  not.found 
close  all 

use  mfg.info  index  nid.mfg 
append  blank 
replace  nid_.no  with  NID 
replace  stock.no  with  stk_no 
set  format  to  mfg.info 
edit  for  nid.no  ■  NID 
clear 


use  item.des 
append  blank 

replace  stock.no  with  stkjno 
set  format  to  item.des 
edit  for  nid.no  ■  NID 
clear 
close  all 

else 

text 

Are  you  sure  the  Stock  Number  &stk_no  is  correct? 


endtext 

accept  "Yes  or  No?  "  to  check 
clear 

if  upper (check)  *  'Y* 

store  . t.  to  not.found 

close  all  databases 

use  mfg.info  index  nid_mfg 

append  blank 

replace  nid_no  with  NID 

replace  stock_.no  with  stk_no 

set  format  to  mfg.info 

edit  for  stock.no  -  stk.no 

clear 

close  all 

else 

close  all 

store  .£.  to  not.found 
text 

This  stock  number  &stk_no  is  already  in  the  database. 
Please  check  the  number  and  try  again, 
endtext 
wait  to  cont 
endif 
endif 
enddo 

clear 

return 


*Bof  STOCK. PRG 


*MFG_INFO . FMT 
* Author:  W.  T.  Key 

*Date:  3  August  1987 

^Purpose:  Presents  screens  for  data  input  into  the 

*  MFG_INFO . DBF .  Calls  for  data  which  is  not 

*  normally  available  until  the  WS1342  is  back 

*  from  the  destination  department. 

*1/0:  MFG  INFO. DBF 

*Called  By:  STOCK. PRG 

*Calls:  None 


•  5,  17  SAY  "Mfg  Year" 

•  5,  32  GET  MFG_INFO->MFG_YEAR 

•  7,  17  SAY  "Type  Code" 

•  7,  32  GET  MFG_INFO->TYPE  CODE 

•  9,  17  SAY  "Cost" 

•  9,  32  GET  MFG_INFO->COST 

•13,  7  SAY  "**  Press  <CTRL>  <END>  to  save  the  data  you 

just  entered.  **" 


Eof  MFG  INFO. FMT 


* ITEM_DES . PMT 
* Author:  W.  T.  Key 

•Date:  5  August  1987 

♦Purpose:  Presents  screen  for  user  to  fill  in  the 

*  physical  description  of  the  item — by  stock 

*  number-- *ie  several  NID  numbers  may  have  the 

*  stock  no  and  thus  only  one  phys_descr  is  nesc. 

*1/0:  ITEM_DES . DBF 

•Called  By:  STOCK. PRG 
•Calls:  None 


•2,30  SAY  "Physical  Description" 

•4,01  GET  ITEM_DES->PHYS_DESC 

•10,  01  SAY  [Enter  the  equipment  description  in  the 

highlighted] 

•11,  01  SAY  [area.  Use  the  left/right  arrows  to  move 
around] 

•12,  01  SAY  [in  the  physical  description  field.] 

•  14,  01  SAY  [Press  <CTRLXEND>  to  save  the  data  you 

entered.] 


Eof  ITEM  DES.FMT 


‘PRNT1342 . PRG 
* Author:  W.  T.  Key 

‘Date:  14  July  1987  (Hod  9/15/87  BAW) 

‘Purpose:  Prints  a  form  DD1342  with  inputs  from 

*  all  necessary  dbfs  with  the  same  NID  no. 

‘I/O:  PROPERTY. DBF,  PLANT. DBF,  MFG_INFO . DBF , 

*  INV_INFO . DBF , 

*  PURCHASE. DBF;  PRNT1342.FMT 

‘Called  By:  ACQUISIT.PRG  (PMPS.PRG) 

‘Calls :  None 


clear 

set  talk  off 
erase  temp_l.dbf 
erase  temp_2 . dbf 
erase  temp_3.dbf 
erase  temp_A.dbf 

do  getnid.prg 

use  property  index  nid_prop 
find  &NID 

if  .not.  FOUND ()  then 

•  10,10  say  [Record  does  not  exist!] 

? 

wait 
return 
endif 
go  top 
select  2 
use  plant 
select  1 

join  with  plant  to  temp_l  for  nid_no  ■  plant  ->  nid_no 
close  all 


use  temp_l 
select  2 
use  mfg_ info 
select  1  - 

join  with  mfg_info  to  temp_2  for  nid_no  *  mfg_info  ->  nid_.no 
close  all 


use  temp_2 
select  2 
use  inv_info 
select  1 

join  with  inv_info  to  temp_3  for  nid_no  ■  inv_info  ->  nid_no 
close  all 
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use  teap_3 
select  2 
use  purchase 
select  1 

join  with  purchase  to  temp  A  for  nid_no»purchase->nid_no 
fields 

nid_.no ,  julian ,  s  tock_no ,  cost ,  dept_code ,  mf  g_year ,  mf  gjname ,  - 
mfg_code- 

,  mfg_mod_.no ,  comod_code ,  type_code ,  non_avl_no ,  pwr_code ,  length ,  - 
width, height , weight , noun_name , po_no , mf g_ser_no , locate 

close  all 
use  temp_A 

locate  for  nid_no  ■  MID 
clear 

set  device  to  print 

do  prntl342.fmt 
eject 

set  device  to  screen 
close  all  databases 

erase  temp_l.dbf 
erase  temp_2.dbf 
erase  temp_3.dbf 
erase  tcmp_A.dbf 

wait  to  continue 
clear 

return 


*Bof  PRNT1342.PRG 


‘VIEW1342 . PRG 
* Author:  W.  T.  Key 

‘Date:  20  July  1987  (Mod  9/1/87  BAW) 

‘Purpose:  Draws  a  filled-in  DD1342  on  the  screen  for  the 

*  user  to  browse  through  and  make  changes  as 

*  necessary.  File  selected  via  NID  number  input 

*  by  user.  Changes  made  on  the  screen  will  be 

*  stored  in  the  appropriate  dbf. 

*1/0:  PROPERTY . DBF ,  PLANT. DBF,  MFG  INFO. DBF, 

*  INV_INF0 . DBF 

*  PURCHASE. DBF;  VU1342P1.FMT,  VU1342P2.FMT 

‘Called  By:  ACQUISIT.PRG  (PMPS.PRG) 

‘Calls:  None 


erase  temp_l.dbf 
erase  temp_2.dbf 
erase  temp_3.dbf 
erase  temp_B.dbf 
clear 

set  talk  off 
do  getnid 

use  property  index  nid_prop 
find  &NID 

if  .not.  FOUND ()  then 

•10 , 10  say  [Record  does  not  exist!] 

? 

wait 
return 
endif 
go  top 
select  2 
use  plant 
select  1 

join  with  plant  to  temp_l  for  nid_.no  »  plant  ->  nid_.no 
close  all 

use  temp_l 
select  2 
use  mfg_info 
select  1 

join  with  mfg_info  to  temp_2  for  nid__no  ■  mfg_info  ->  nid_no 
close  all 

use  temp_2 
select  2 
use  inv_info 
select  1 

join  with  inv_info  to  temp_3  for  nid_.no  ■  inv_info  ->  nid_no 


close  all 


use  temp_3 
select  2 
use  purchase 
select  1 

join  with  purchase  to  temp_B  for  nid_no  *  purchase  t>  nid_no 
fields  nid_.no,; 

julian , s tock_no , cost , dept_code , mf g_year , mf gj name , mf g_code , - 
mfg_mod_.no, ; 

mf g_ser_no , locate , comod_code , type_code , non_avl_no , pwr_code , - 
length, ; 

width , height , weight , noun_name , po_no 

erase  terop_l.dbf 
erase  temp_2.dbf 
erase  temp_3.dbf 
close  all 

use  temp_B 
go  top 

locate  for  nid_.no  *  NID 
clear 

set  format  to  vul342pl 
read 
select  2 

use  property  index  nid_prop 
find  &NID 

replace  dept_code  with  temp_B  ->  dept_code 
replace  mfg_name  with  temp_B  ->  mfg_name 
replace  mfg_mod_no  with  temp_B  ->  mfg_mod_no 
replace  mfg_ser_no  with  temp_B  ->  mfgJser_no 

select  3 

use  plant  index  nidplant 
find  &NID 

replace  comod_code  with  temp_B  ->  comod_code 
replace  pwr_code  with  temp_B  ->  pwr_code 
replace  mfg_code  with  temp_B  ->  mfg_code 

select  4 

use  mfg_info  index  nid_mfg 
find  &NID 

replace  stock_no  with  temp_B  ->  stock_no 
replace  cost  with  temp^B  ->  cost 
replace  mfg_year  with  temp_B  ->  mfg_year 
replace  type_code  with  temp_B  ->  type_code 


select  5 

use  inv_inf o  index  nid_inv 
find  &NID 

replace  julian  with  temp_B  ->  julian 
select  1 

set  fornat  to  vul342p2 

read 

select  2 

replace  noun_name  with  temp_B  ->  noun_nane 
replace  dept_code  with  temp_B  ->  dept_code 

select  3 

replace  length  with  temp_B  ->  length 
replace  width  with  temp_B  ->  width 
replace  height  with  temp_B  ->  height 
replace  weight  with  temp_B  ->  weight 
replace  non_avl_.no  with  temp_B  ->  non_avl_no 

select  4 

use  purchase  index  nid_purc 
find  &NID 

replace  pojno  with  tempJB  ->  pojno 
select  5 

replace  locate  with  temp_B  ->  locate 

close  all 

erase  temp_B.dbf 

clear 

return 


*Eof  VIEW1342 . PRG 
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•VU1342P1 .  FHT 
* Author:  W.  T.  Key 

*Date:  3  August  1987 

‘Purpose:  Builds  a  screen  that  looks  like  the  top  half  of 

*  a  DD1342  and  fills  it  with  data  from  below 

*  noted  DBFs.  The  user  nay  then  browse  and 

*  change  as  desired  with  changes  being  stored  in 

*  appropriate  DBFs . 

*1/0:  PROPERTY. DBF,  PLANT. DBF,  MFG_INFO . DBF , 

*  INV_INFO . DBF , 

*  PURCHASE. DBF 

•Called  By:  VIBW1342.PRG 

•Calls:  None 


•1,1  say  [DOD  Property] 

•1,16  say  [l._X_Active] 

•1,28  say  [_X_Initial] 

•1,39  say  [2. Julian] 

•1,49  say  [3. ID/Govt  Tag#] 

•1,65  say  [Form  Approved] 

•2,4  say  [Record] 

•2,20  say  [ _ Idle] 

•2,30  say  [ _ Change] 

•2,41  say  [Date] 

•2,65  say  [OMB  No.22-R0209] 

•3,41  get  julian 
•3,51  get  nidjno 
•4,0  to  4,79 

•5,25  say  [Section  1— INVENTORY  RECORD] 
•5,55  say  [Dept:] 

•5,61  get  dept_code 
•6,0  to  6,79 

•8,1  say  [4.Comnodity  Code] 

•8,19  say  [5 . Stock] 

•8,29  say  [6.Acqn  Cost] 

•8,42  say  [7. Type] 

•8,50  say  [8.Yr  of] 

•8,60  say  [9.Pwr] 

•9,21  say  [Number] 

•9,44  say  [Code] 

•9,52  say  [Mfg] 

•9,62  say  [Code] 

•10,2  get  comod_code 
•10,21  get  stock_.no 
•10,30  get  cost 
•10,45  get  type_code 
•10,52  get  mfg_year 
•10,63  get  pwr_code 
•12,00  to  12,79 
•13,1  say  [10. Status] 


#13 #12 

say 

[11. SVC] 

•13 #21 

say 

[12. Command] 

•13,33 

say 

[13. ADM  Office] 

•14  #4 

say 

[Code] 

•14 #15 

say 

[Code] 

•14 #24 

say 

[Code] 

•14 #36 

say 

[Code] 

•15  #4 

say 

[1A] 

•15,15 

say 

[11 

•15,23 

say 

[N00011] 

•15,36 

say 

[N00228] 

•16,00 

to  16,79 

•17,1 

say 

[14. Name  of] 

•17,25 

say 

[15.Mfr's] 

•17,35 

say 

[16 .Manufacturer ' s] 

•17 , 58 

say 

[17 .Manufacturer ' s] 

•18,4 

say 

[Manufacturer] 

•18,28 

say 

[Code] 

•18,38 

say 

[Model  No.] 

•18,61 

say 

[Serial  No.] 

•19,3 

get 

mfg_name 

•19,28 

get 

mfg_code 

•19,38 

get 

mfg_mod_.no 

•19,60 

get 

mfg_ser_no 

*Eof  VU1342P1 . FMT 
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*VU1342P2.FMT 
* Author : 
•Date: 
•Purpose: 

* 

* 

* 

* 

•I/O: 

* 

•Called  By: 
•Calls: 


W.  T.  Key 
1  August  1987 

Builds  a  acreen  that  looks  like  the  bottom  half 
of  a  DD1342  and  fills  it  with  data  from  the 
below  noted  DBFs.  The  user  may  then  browse  and 
change  as  desired  with  changes  stored  in  the 
appropriate  DBF. 

PROPERTY. DBF,  PLANT. DBF,  MFG_INFO . DBF , 

XNV  INFO. DBF, PURCHASE. DBF 

VIEW1342.PRG 

None 


•3,1  say 
•3,11  say 
•3,20  say 
•3,30  say 
•3,40  say 
•3,58  say 
•4,43  say 
•5 , 3  get 
•5,12  get 
•5,22  get 
•5,32  get 
•5,42  get 
•5,60  get 
•6,0  to  6 


[18. Length] 

[19. Width] 

[20. Height] 

[21. Weight] 

[22. Certificate  of] 
[25. Contract  No.] 
[Non-Avail  No.] 
length 
width 
height 
weight 
non_avl_.no 
po  no 
,79 


•7,1  say  [26. Description  and  Capacity] 
•9,4  get  noun_name 
•11,4  say  [phys_desc  will  go  here] 
•13,0  to  13,79 

•14,1  say  [28. Present  Location] 

•14,32  say  [Equip.  Location] 

•14,57  say  (29. Possessor] 

•15/4  say  [Naval  Postgraduate  School] 
•15,32  get  locate 
•15,60  say  [Code] 

•16,4  say  [No  Street  Address] 

•16,60  say  (62271(7685435)] 

•17,4  say  [Monterey,  Ca.] 


*Bof  VU1342P2 . PRG 


•INVMENU . PRG 
* Author:  W.  T.  Key 

•Date:  26  July  1987 

•Purpose:  This  module  provides  access  to  the  two  inventory 

*  sub-modules;  it  is  a  simple  menu  which  allows 

*  the  user  to  print  or  browse  the  inventory  files 

*  (in  DD1342 (-)  format)  or  return  to  the 

*  Acquisitions 

*  Menu . 

•I/O:  None 

•Called  By:  ACQUISIT.PRG  (PMPS.PRG) 

•Calls:  VXEWINV . PRG ,  PRNTINV . PRG 

clear 

store  "  "to  choice 
do  while  .t. 

•8,30  say  (Conduct  Inventory  Menu] 

•10,23  say  [Task 

•12,23  say  [Browse/Edit  Inventory  List 
•14,23  say  [Print  Inventory  List 
•16,23  say  [Return  to  Previous  Menu 
? 

wait  "Enter  Task  Code:  "  to  choice 
do  case 

case  choice  *  ' 1 ' 
do  viewinv.prg 
case  choice*  '2' 
do  prntinv.prg 
case  choice  *  '3' 
clear 
return 
otherwise 
loop 

endcase 
enddo 

return 

•Eof  INVMENU . PRG 


Task  Code] 
1] 

2] 

3] 
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* VIKWIMV . PRG 
* Author : 
•Date: 

* Purpose: 

* 

* 

* 

* 

* 


*1/0: 

* 

* Called  By: 
*Cells: 


W.  T.  Key 
29  July  1987 

This  program  allows  the  user  to  browse  thru 
screens  made  up  of  D01342(-)  fields.  It  calls 
up,  then  creates  a  screen  for  each  piece  of 
equipment  which  newts  the  pronpted  filters  of 
inventory  cutoff  date  and  department  of 
interest. 

Changes  nade  on  the  screen  will  be  stored  in 
the  appropriate  dbf . 

PROPERTY . DBF ,  PLANT. DBF,  MFG_INFO . DBF , 

INV_INFO . DBF ;  INVRPT.FMT 

INVMENU . PRG  (ACQUIS IT. PRG)  UPKPS.PRG)) 

None 


erase  temp_l.dbf 
erase  temp_2.dbf 
erase  invrpt.dbf 


clear 

set  talk  off 

accept  "Enter  inventory  cutoff  date  Imn/dd/yy)  and  <RTN> : *  to 
input_l 

accept  "Enter  department  code  (4-digit)  and  <RTN> :  "  to 

input_2 

use  property 
select  2 
use  plant 
select  1 

join  with  plant  to  temp.l  for  nid.no  ■  plant  ->  nidjno 
close  all 

use  temp.l 
select  2 
use  mfg.info 
select  1 

join  with  mfg.info  to  Temp.2  for  nid_no  *  mfg_info  ->  nid_.no 
close  all 

use  temp_2 
select  2 
use  inv.info 
select  1 

join  with  inv.info  to  invrpt  for  nid.no  »  inv.info  ->  nid.no 
fields  nid_po,  inv.date ,  noun.name,  locate,  mfg_ser.no, 
mf g.code , 

comod.code,  stock.no,  cost,  dept .code,  mfg.name 
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clot*  all 

use  invrpt 
go  top 

do  while  . not .  oof ( ) 

if  UPPER (dept_code)  ■  UPPER ( input _2 )  .and.  DTOC ( inv_date ) 
<  input.l 

sat  format  to  invrpt 

road 

salect  2 
use  property 

locate  for  property- >nid_no  ■  invrpt- >nid_no 
replace  mfg_hame  with  invrpt- >afgjnaae 
replace  noun_name  with  invrpt- >noun_name 
replace  dept_code  with  invrpt- >dept_code 
replace  mfg_ser_.no  with  invrpt- >mf g_ser_.no 

select  3 
use  plant 

locate  for  plant->nid_no  ■  invrpt- >nid_no 
replace  mfg_code  with  invrpt- >mfg_code 
replace  comod_code  with  invrpt- >comod_code 

select  4 
use  mfg_info 

locate  for  mfg_info->nid_no  ■  invrpt->nid_no 
replace  stock_no  with  invrpt- >stock_no 
replace  cost  with  invrpt->cost 

select  5 
use  inv_info 

locate  for  inv_info->nid_no  *  invrpt- >nid_no 
replace  inv_date  with  invrpt- >inv_date 
replace  locate  with  invrpt->locate 

select  1 

skip 

else 

skip 

endif 

enddo 


erase  temp_l.dbf 
erase  temp_2.dbf 


•r«it  invrpt.dbf 
cloaa  all 
elaar 
raturn 


•Hof  VIEWINV . PRG 
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*  PRNTINV . PRG 
* Author : 
•Date: 
•Purpose: 

* 

* 

* 

* 

*1/0: 

* 

•Called  By: 
•Calls: 


W.  T.  Key 
1  August  1987 

This  nodule  allows  the  user  to  print  an 
equipnent  inventory  which  displays  the 
DD1342(-)  fields.  The  user  is  prompted 
for  an  inventory  cutoff  date  and  department 
of  interest. 

PROPERTY. DBP,  PLANT. DBF,  MFG  INFO. DBF, 

INV_INFO . DBF J  INVRPT  P.FMT 

INVMENU . PRG  (ACQUIS IT. PRG)  ((PMPS.PRG)) 

None 


erase  temp_l . dbf 
erase  temp_2.dbf 
erase  invrpt.dbf 

clear 

set  talk  off 

accept  "Enter  inventory  cutoff  date:  (mm/dd/yy)  "  to  input_l 
accept  "Enter  department  code  (4-digit) :  "  to  input_2 

use  property 
select  2 
use  plant 
select  1 

join  with  plant  to  temp_l  for  nid_no  ■  plant  ->  nid_.no 
close  all 

use  temp_l 
select  2 
use  mfg_info 
select  1 

join  with  mfg_info  to  Temp_2  for  nid_.no  ■  mfg_info  ->  nid_no 
close  all 


use  temp_2 
select  2 
use  inv_info 
select  1 

join  with  inv_info  to  invrpt  for  nid_no 
fields  nid_no,  inv_date,  noun_name, 
mf g_code , 

comod_code,  stock_no,  cost,  dept_code,  mfg_name 
close  all 

use  invrpt 
go  top 
•  0,0 
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inv_ info  ->  nid_no 
locate,  mfg_ser_no. 


.i 


set  device  to  print 
do  while  .not.  eofO 

if  UPPER <dept_code)  ■  UPPER ( input_2 )  .and.  DTOC ( inv_date ) 
<  input_l 

•1,26  say  [MCD  Inventory  Worksheet] 

•3,0  say  [NID  No.] 

•3,22  say  nid_no 

•5,0  say  [Last  Inventory] 

•5,22  say  inv_date 

•7,0  say  [Department  Code] 

•7,22  say  dept_code 
•9,0  say  [Equipment  Name] 

•9,22  say  noun_name 

•11,0  say  [Location  of  Equipment] 

•11,22  say  locate 

•13,0  say  [Mfg's  Serial  No.] 

•13,22  say  mfg_ser_no 
•15,0  say  [Commodity  Code] 

•15,22  say  comod_code 
•16,0  say  [Stock  No.] 

•16,  22  say  stock_.no 
•17,0  say  [Acquisition  Cost] 

•17,22  say  cost 
•18,0  say  [Mfg  Name] 

•18,22  say  mfg_name 


skip 


loop 

else 


skip 

loop 

endif 

enddo 

eject 

set  device  to  screen 

close  all 

erase  temp_l.dbf 

erase  temp_2.dbf 

erase  invrpt.dbf 

clear 

return 


*Eof  PRNTINV. PRG 


132 


•PENDMBNU.PRG 
* Author : 
♦Date: 
♦Purpose: 

* 

* 

* 

* 

*1/0: 

♦Called  By; 
♦Calls: 


W.  T.  Key 
22  July  1987 

This  program  allows  the  user  access  to  the 
pending  sub-modules.  It  is  a  simple  menu  which 
gives  the  user  the  choice  of  browsing  or 
printing  pending  file  or  return  to  the 
Acquisitions  Menu. 

None 

ACQUISIT. PRG  (PMPS.PRG) 

VIEWPEND . PRG ,  PRNTPEND . PRG 


clear 

store  "  "to  choice 
do  while  .t. 

•  8,30  say  [PENDING  Files  MENU] 

•  10,23  say  [Task 

•  12,23  say  [Browse/Edit  Pending  Files 

•  14,23  say  [Print  Pending  Files 

•  16,23  say  [Return  to  Previous  Menu 


Task  Code] 
1] 

2] 

3] 


wait  "Enter  Task  Code: 
do  case 

case  choice  «  "1" 
do  viewpend.prg 

case  choice  *  "2" 
do  prntpend.prg 


to  choice 


case  choice 
clear 
exit 

otherwise 

loop 


’3" 


endcase 

enddo 


*Eof  PEND MENU . PRG 


* VIEWPEND . PR6 
* Author: 
*Date: 

* Purpose: 

* 


* 

* 


W.  T.  Key 
25  July  1987 

Displays  selected  fields  for  all  items  in  the 
"pending  file"  ie  those  pieces  of  equipment 
carrying  a  'P*  (or  an  'R')  in  the  pend_stat 
field.  The  user  is  prompted  for  a  ' P' 
or  an  ’R*.  This  module  could  sort  on  anything 
in  the  pend_stat  field.  Changes  made  on  the 
screen  will  be  stored  in  the  appropriate  dbf. 


*1/0: 

* 

*Called  By: 
*Calls: 


PROPERTY. DBF,  PURCHASE. DBF,  PENDING. DBF, 
PENDRPT1 . FMT 

PENDMBNU . PRG  ( ACQUIS IT. PRG)  ((PMPS.PRG)) 
None 


clear 

set  talk  off 

erase  pendrptl.dbf 
erase  temp_l.dbf 

accept  "Enter  equipment  status  (P  or  R)  and  <RTN> :  "  to 

input 

use  property 
select  2 
use  purchase 
select  1 

join  with  purchase  to  temp_ 1  for  nid_.no  »  purchase  ->  nid_no 
close  all 

use  temp_l 
select  2 
use  pending 
select  1 

join  with  pending  to  pendrptl  for  nid_.no  .«  pending  ->  nid_no 
fields  nidjno,  reqn_no,  dept_code,  noun_name,  pend_stat, 
date_recv,  po_po  ~ 

close  all 
use  pendrptl 

go  top 

do  while  .not.  eof() 

if  pendrptl- >pend_s tat  ■  input 

set  format  to  pendrptl 


read 


select  2 
use  property 

locate  for  proper ty->nid_no  *  pendrptl->nid_no 
replace  property- >noun_name  with  pendrptl->noun_name 
replace  property- >dept_code  with  pendrptl->dept_code 

select  3 
use  purchase 

locate  for  purchase- >nid_no  ■  pendrptl->nid_no 
replace  purchase->date_recv  with  pendrptl->date_recv 
replace  purchase- > reqn_.no  with  pendrptl->r eqn_.no 
replace  purchase- >po_no  with  pendrptl->po_no 

select  4 
use  pending 

locate  for  pending- >nid_no  =  pendrptl->nid_no 
replace  pending->pend_stat  with  pendrptl->pend_stat 

select  1 

skip 

else 

skip 

endif 


enddo 

erase  terop_l.dbf 

erase  pendrptl.dbf 

close  all 

clear 

return 


*Eof  VIEWPEND . PRG 
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•PRNTPBND . PR6 
* Author:  W.  T.  Key 

•Date:  22  July  1987 

•Purpose:  Prints  all  items  which  have  '  P'  or  'R*  in  the 

*  pend_stat  field.  User  is  prompted  for  '  P/R'  as 

*  desired. 

*1/0:  PROPERTY. DBF,  PURCHASE . DBF ,  PENDING. DBF; 

*  no  * . FMTs y 

•Called  By:  PENDMENU . PRG  ( ACQUIS IT. PRG)  ((PMPS.PRG)) 

•Calls :  None 


clear 

set  talk  off 

erase  pendrptl.dbf 
erase  temp_l.dbf 


accept  "Enter  equipment  status  {P  or  R)  and  <RTN>:  "  to 

input 

use  property 
select  2 
use  purchase 
select  1 

join  with  purchase  to  temp_l  for  nid_.no  *  purchase  ->  nid_no 
close  all 

use  temp_l 
select  2 
use  pending 
select  1 

join  with  pending  to  pendrptl  for  nid_no  *  pending  ->  nid_.no 
fields  nid_.no,  reqn_.no,  dept_code,  noun_name,  pend_stat, 
date_recv ,  po_no 

use  pendrptl 

go  top 

•  0,0 

set  device  to  print 
do  while  .not.  eof() 

if  pendrptl->  pend_stat  =  input 
•  1,30  say  [MCD  Pending  Report] 


•  4,0  say  "NID.NO" 

•  4,23  say  pendrptl  ->  nid.no 

•  6,0  say  "Raquisition  Number" 

•  6,23  say  pandrptl  ->  RBQNJNO 

•  8,0  say  "Department  Code" 

•  8,23  say  pendrptl  ->  DBPT.CODE 

•  10,0  say  "Item  Name" 

•  10,23  say  pendrptl  ->  NOUN.NAMB 

•  12,0  say  "Pending  Status" 

•  12,23  say  pendrptl  ->  PEND.STAT 

•  14,0  say  "Date  Received" 

•  14,23  say  pendrptl  ->  DATB.RBCV 

•  16,0  say  "Purchase  Order  No." 

•  16,23  say  pendrptl  ->  PO_NO 
skip 

loop 

else 

skip 

loop 

endif 

enddo 

eject 

set  device  to  screen 

close  all 

clear 

return 


*Eof  PENDPRNT . PRG 


APPENDIX  C 


DISPOSITION  MODULES  SOFTWARE  CODE 

The  following  contains  the  software  code  contained  in  the 
Modules  which  support  the  equipment  dispositions  process  at 
MCD.  Bach  nodule  begins  with  a  docunentaion  header.  This 
header  contains  the  name  of  the  author,  the  date  that  the 
code  was  last  modified,  and  a  general  description  of  the 
purpose  of  the  module.  Additionally  listed  are  all  of  the 
programs,  formats,  and  data  base  files  (.PRG,  .FMT,  .DBF 
respectively)  that  the  module  uses,  calls,  or  is  called  by. 


1 


‘PROCJTRN.PRG 
* Author : 
‘Date: 
‘Purpose: 

* 

* 

‘I/O  Files: 
‘Called  by: 
‘Calls: 


B.  A.  Whitehouse 
1  July  1987 

This  nodule  calls  two  nodules  to  be  executed 
and  return  control  to  the  nain  control 
nodule,  PMPS . 

None 

PMPS.PRG 

INPUT_TR . PRG ,  BLD_DPBN.PRG 


clear 

set  talk  off 


do  input_tr 
do  bld_dpen 

close  all 
return 


‘eof  PROC  TRN.PRG 


•INPUTJTR.PRG 
* Author: 
*Date: 
•Purpose: 

* 

* 

* 

* 

*1/0  Files: 
•Called  By: 
•Calls: 


B.  A.  Whitehouse 
2  July  1987 

If  the  user  has  a  PROPNIDJNO  then  this  module 
will  execute  INPT_EXC .  If  not  then  OTHEREXC 
will  be  executed.  This  will  be  done  for  as 
many  times  as  the  user  has  transactions  to 
input . 

None 

PROC_TRN . PRG 

INPT.EXC.PRG,  OTHEREXC. PRG 


clear 

set  talk  off 
store  "Y"  to  answer 


do  while  answer  ■  "Y"  .or.  answer  ■  "y" 
clear 
? 

? 

? 

wait  "  Do  you  have  a  NID  Number?  (Y/N) "  to  answer 

if  answer  *  ''yH  .or.  answer  *  MYM  then 
do  inpt_exc 
else 

clear 

•  1C, 5  say  (Do  you  want  to  process  an  item  without  a 
NID  number?] 

•  10 , 58  get  answer 
read 

if  answer  »  "Y"  .or.  answer  =  "y"  then 
do  otherexc 
endif 
endif 

clear 

? 

? 

? 

wait  "  Do  you  want  to  process  another  transaction? 

(Y/N) " 
to  answer 

enddo 

clear 
close  all 
return 


eof  INPUT_TR . PRG 


‘INPTJSXC.PRG 
* Author : 
‘Date: 

* Purpose: 

* 

* 

* 


*1/0  Files: 


* 

* 


‘Called  by: 
‘Calls: 


B.  A.  Whitehouse 
14  August  1987 

This  nodule  prompts  the  user  for  information 
on  an  item  having  been  identified  as  either 
plant  or  minor  property,  having  a  NID 
number,  and  being  excess  equipment.  The  data 
recieved  will  be  used  to  build  a  pending 
disposition  record. 

PROPERTY. DBF,  PEND-D.DBF,  PENDING. DBF, 

NID  PROP. NDX,  NID  DPBN.NDX,  RPT_DPBN . NDX , 
NIDPBND . NDX 
INPUT_TR . PRG 
GETDATA . PRG 


clear 

‘memory  variables 
again  *  space ( 1 ) 

propped  *  space ( 1 ) 

cond_cd  *  space ( 1 ) 

poc_name  *  space ( 20 ) 
pocjphone  ■  space (4) 

qty_exc  ■  0 

‘memory  variables 
store  .t.  to  again 
clear 


do  while  .t. 


do  getnid 
clear 

•7,5  say  "Enter  condition  code:"  get  cond_cd 
•9,5  say  "Enter  point  of  contact:"  get  poc_name 
•11,5  say  "Enter  POC  phone:"  get  pocjphone 
•13,5  say  "Enter  quanty  of  excess:"  get  qty_exc 
•15,5  say  "Enter  property  code:"  get  propped 

read 


select  1 

use  property  index  nid_prop 
find  &NID 

if  .not.  FOUND O  then 
append  blank 
replace  nid_no  with  NID 
replace  prop_code  with  propped 
do  getdata 
endif 


select  4 

use  pend-d  index  nid.dpen , rpt_dpen 


find  &NID 


if  FOUND ()  than 
claar 

•  3,10  say  "Record  alraady  axists,  chack  NID  number  and 
try  again." 

? 

? 

wait 

alsa 

axit 

andif 

anddo 


appand  blank 


raplaca  cond_c_e 
raplaca  poc_n 
raplaca  poc_p_.no 
raplaca  nid_no 
raplaca  qty_a 


with  cond_cd 
with  poc_nama 
with  poc_phone 
with  NID 
with  qty_exc 


claar 

•  10,5  say  [Check  entries  on  followng  screen,  if  correct 

press  <ESC> . ] 

wait 

edit  for  nid_.no  *  NID 


clear 
select  3 

use  pending  index  nidpend 
find  &NID 


if  .not.  found ()  than 
append  blank 
replace  nid_.no  with  NID 
replace  pend_stat  with  "I" 

else 

replace  pend_stat  with  "I" 
endif 


close  all 

clear 

return 


•eof  INPT_EXC.PRG 


•GETDATA . PUG 

•Author:  B.  A.  Whitehouse 

•Data:  14  August  1987 

•Purpose:  To  load  data  for  equipment  that  is  not 

*  currently  in  the  data  base.  This  data  is 

*  considered  the  minimum  information  necessary 

*  to  process  a  particular  item  for  disposition. 

•I/O  files:  MFG_INFO . DBF ,  NID  MFG.NDX,  PROPERTY . DBF , 

*  NID  PROP . NDX 

•Called  by:  INPT_EXC.PRG 

•Calls:  None 

clear 

•memory  variables 
store  0.00  to  price 
store  "  "to  mfr_yr 

store  "  "to  stock 

store  "  "to  dept 

mfrjmod  *  space (15) 
mfr_name  -  space (30) 
ser_.no  -  space  (20) 
n_name  ■  space (30) 
bldg  *  space (4) 
rm  *  space  ( 4 ) 

*  memory  variables 

•  1,15  say  "Additional  Info  Is  Necessary" 

•  3,5  say  'Enter  cost  of  the  item:"  get  price 

•  5,5  say  "Enter  year  manufactured,  if  know:"  get  mfr_yr 

•  7,5  say  "Enter  Stock  number:"  get  stock 

•  9,5  say  "Enter  Dept,  code:”  get  dept 

•  11,5  say  "Enter  Model  Number:"  get  mfr_mod 

•  13,5  say  "Enter  Manufacture's  Name:"  get  mfr_name 

•  15,5  say  "Enter  Serial  Number:"  get  ser_.no 

•  17,5  say  "Enter  Item  Name:"  get  n_name 

•  19,5  say  "Enter  Location:" 

•  19,21  say  "BLDG  "  get  bldg 

•  20,21  say  "Room  "  get  rm 
read 

replace  dept_code  with  dept 
replace  mfg_mod_no  with  mfr_mod 
raplace  mfg_name  with  mfr_name 
replace  mfg_ser_no  with  ser_.no 
replace  noun_name  with  n_name 

select  5 

use  mfg_info  index  nidjmfg 
append  blank 


replace  nidjno  with  NID 


replace  cost  with  price 
replace  mfg_year  with  m£r_yr 
replace  stock_no  with  stock 


use 

select  8 

use  inv_info  index  nid_inv 
append  blank 
replace  nid_.no  with  NID 
replace  locate  with  bldg-rm 
use 

select  1 

clear 

return 

*eof  GETDATA . PRG 


* OTHER EXC.PRG 

* Author:  B.  A.  Whitehouse 

‘Date:  14  August  1987 

‘Purpose:  To  load  the  data  fields  with  information 

*  provided  by  the  user.  These  excess  items  will 

*  be  identified  by  a  combination  of  the  date 

*  they  are  entered  and  their  stock  number.  This 

*  character  string  will  be  entered  into  the 

*  NID  Number  field. 

*1/0  files:  PROPERTY. DBF,  PEND-D.DBF,  MF6  INFO. DBF, 

*  PENDING. DBF,  NID_PROP . NDX ,  NID  DPEN.NDX, 

*  RPT_DPEN . NDX ,  NIDPEND . NDX 

‘Called  by:  INPUT_TR.PRG 

‘Calls:  None 

set  talk  off 
clear 

*Memory  variables 

mfr_n  =  space (20) 

mfr_ser  ■  space (20) 

propped  «  space ( 1 ) 

cond_cd  *  space ( 1 ) 

poc_name  *  space (20) 

poc _phone  *  space ( 4 ) 

qty_exc  *  space (3) 

stock  *  space (4) 

dept  *  space (4) 

mod_.no  *  space  (15) 

mfr_yr  *  space (3) 

noun_n  »  space (30) 

type_cd  *  spaced) 

rm  *  space  ( 4 ) 

bldg  *  space (4) 

store  0  to  qty 

store  0  to  price 

store  DTOC(DATEO)  to  date_ent 

*  Memory  variables 

text 

In  the  following  two  screens  enter  as  much  of  the  data  as 
possible.  Since  the  items  are  not  Plant  or  Minor  Property 
or  because  they  are  Minor  Property  which  was  never  assigned 
a  NID  Number,  these  items  will  be  identifed  in  this  database 
by  a  combination  of  the  date  they  are  entered  an  their  stock 
number  in  the  NID  Number  field, 
endtext 
? 

? 

wait 

clear 

do  while  .T. 


•5,5  say  "Enter  condition  code:"  get  cond_cd 
•7,5  say  "Enter  point  of  contact:”  get  poc_name 
•9,5  say  "Enter  POC  phone:"  get  poc_phone 
•11,5  say  "Enter  property  code:"  get  propped 
•13,5  say  "Enter  stock  number:"  get  stock 
•15,5  say  "Enter  cost:"  get  price 
•17,5  say  "Enter  Type  Code:"  get  type_cd 

read 

clear 

•  5,5  say  "Enter  Department  code:”  get  dept 

•  7,5  say  "Enter  manufacture  model  number:"  get  mod_.no 
•9,5  say  "Enter  manufacture  year:"  get  mfr_yr 
•11,5  say  "Enter  noun  name:”  get  noun_n 

•13,5  say  "Enter  manufacture's  name:"  get  mfr_n 
•15,5  say  "Enter  serial  number:”  get  mfr_ser 
•17,5  say  "Enter  Item  Quantity:”  get  qty 

read 

clear 

•5,5  say  "Enter  Item  Location:" 

•  5,27  say  "BLDG  "  get  bldg 
•6,27  say  "ROOM  "  get  rm 

read 

clear 


if  stock  <>  "  "  .and.  bldg  <>  "  "  .and.  rm  <) 

then 

exit 

else 

•  19,3  say  "You  must  enter  the  Stock  Number  and 
Location." 

endif 

enddo 


.and.  rm  <>  " 


select  1 

use  property  index  nid_prop 
select  4 

use  pend-d  index  nid_dpen,rpt_dpen 
select  5 

use  mfg_info  index  nid_mfg 
select  3 

use  pending  index  nidpend 
select  8 

use  inv_info  index  nid_inv 
select  4 

append  blank 


replace  cond_c_e  with  cond_cd 
replace  poc_n  with  poc_name 
replace  poc _p_no  with  poc_phone 
replace  nid_no  with  date_ent-stock 
replace  qty_e  with  qty 
select  5 
append  blank 

replace  mfq_year  with  xnfr_yr 
replace  stock_no  with  stock 
replace  cost  with  price 
replace  nid_no  with  date_ent-stock 
replace  type_code  with  type_ cd 
select  1 
append  blank 

replace  dept_code  with  dept 
replace  mfg_nane  with  mfr_n 
replace  mfg_ser_.no  with  mfr_ser 
replace  mfg_mod_no  with  mod_.no 
replace  prop_code  with  prop_cd 
replace  noun_name  with  noun_n 
replace  nid_.no  with  date,  ent-stock 
select  3 
append  blank 

replace  nid_.no  with  date_ent-stock 
replace  pend_stat  with  'I' 
select  8 
append  blank 

replace  nid_no  with  date_ent-stock 
replace  locate  with  bldg-rm 


close  all 

clear 

return 


*eof  OTHEREXC . PRG 


BLD_DPEN. PRG 
Author : 

Date: 

Purpose : 


I/O  files: 


Called  By: 
Calls: 


B.  A.  Whitehouse 
25  July  1987 

This  module  first  varifies  that  the  number  of 
days  in  each  of  the  screening  periods  has  not 
changed.  It  then  completes  each  pending 
disposition  record.  That  is,  those  records 
with  an  "I"  in  the  PEND_STAT  field.  The 
termination  date  is  initially  determined  by 
the  type  of  equipment, Industrial  Plant 
Equipment,  ADPE,  or  no  special  type.  Other 
data  filled  in  are  PHASE,  REPORT_NO , 
DATE_ENT_D  and  the  PEND_STAT  is  changed 
to  indicate  a  completed  pending  dispositions. 
PEND-D.DBF,  PROPERTY . DBF ,  PENDING. DBF, 
MFG_INFO . DBF ,  NID_DPEN . NDX ,  RPT_DPEN . NDX , 
NID_PROP . NDX ,  NIDPEND.NDX,  NID_MFG . NDX , 
TEMPSF.DBF,  SF120REP.FRM 
PROC_TRN . PRG 

CAL JUL . UTL ,  1342IREP . PRG ,  SF120REP.PRG, 
HTLSTREP . PRG 


clear 

‘memory  variables 
r_scr  =21 

ie_scr_p  =  90 

adpe_scr_p  *  201 

uic  -  'N62271 


•  5,7  say  "Enter  current  IE  screening  period:"  get  ie_scr_p 
•7,7  say  "Enter  current  Reutilization  screening  period:"  get 
r_scr_p 

•  9,7  say  "Enter  current  ADPE  screening  period:"  get 
adpe_scr_p 

read 

clear 


select  4 

use  pend-d  index  nid_dpen , rpt_dpen 
select  1 

use  property  index  nidjprop 
select  4 

set  relation  to  nid_no  into  property 
select  3 

use  pending  index  nidpend 
select  1 

set  relation  to  nid_.no  into  pending 
select  5 

use  mfg_info  index  nid_mfg 


select  3 

set  relation  to  nid_.no  into  mfg_info 

do  caljul.utl 
select  4 
go  top 

do  while  .not.  EOFO 

if  SUBSTR (nid_.no , 3,1)  <>  '*/"  .and.  pending->pend_stat  * 
"I"  then 

replace  date_ent_d  with  julian 

replace  rpt_.no  with  uic-"-"-LTRIM(STR ( julian) ) 

replace  phase  with  "R" 

select  5 

if  mfg_info->type_code  *  ”1"  then 
select  4 

Mdate_t  »  julian  +  ie_scr_p 
do  chkjul  with  Mdate_t 
replace  date_term  with  Mdate_t 

select  8 
use  temp_nid 
append  blank 

store  pend-d->nid_no  to  nid_no 
use 

select  3 

replace  pend_stat  with  "D” 
select  4 
else 

if  VAL(stock_no)  >=  7000  .and.  VAL (stock_no)  <  8000 

then 

select  4 

Mdate_t  =  julian  +  adpe_scr.jp 
do  chkjul  with  Mdate_t 
replace  date_term  with  Mdate_t 
do  sfl20rep 
select  4 

replace  pending->pend_stat  with  "D" 
else 

select  4 

Mdate_t  ■  julian  +  r_scr_p 
do  chkjul  with  Mdate_t 
replace  date_term  with  Mdate_t 
select  3 

replace  pend_stat  with  ”D" 
select  4 
endif 
endif 
else 

if  pending- >pend_s tat  ■  "I" 

replace  date_ent_d  with  julian 
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replace  rpt_no  with  uic-"-"-LTRIM<STR( julian) ) 
replace  phase  with  "R" 
replace  pending- >pend_stat  with  "D" 
endif 
endif 

skip 

enddo 

close  all 
clear 

•  10,10  say  "Do  you  want  the  Hit  List  Report"  get  ans 
read 

if  ans  ■  'Y'  .or.  ans  ■  'y*  then 
do  htlstrep 
endif 

use  temps f 

wait  "Check  printer  and  strike  any  key  when  ready" 

report  form  sfl20rep  to  print 

eject 

delete  all 
pack 

close  all 
do  1342irep 
return 

*eof  BLD_DPEN . PRG 


•CALJUL.UTL 

* Author:  B.  A.  Whitehouse 

•Date:  23  July  1987 

•Purpose:  Convert  system  date  to  julian  date  format. 

•Called  By:  BLDJDPEN . PG 

•Calls:  None 

•Input:  Calender  date  from  within  the  system. 

•Output:  Julian  -  Julian  date  in  DDDD  format. 

set  talk  off 

do  while  .t. 
clear 

•  Input  date  to  be  changed. 

Day  -  DAY ( DATE () ) 

Month  -  MONTH <DATE( ) ) 

Year  -  YEAR (DATE ( ) } 
public  julian 

Yr  *  mod (Year, 100) 
leap  ■  mod(yr,4) 

do  case 

case  Month  »  1.0 

julian  ■  (mod(Yr,10) *1000)  +  day 
case  Month  ■  2.0 

julian  *  (mod (Yr, 10) *1000)  ♦  30  +  day 
case  Month  »  3.0 

julian  ■  (mod (Yr, 10) *1000)  +  58  ♦  day 
case  Month  ■  4.0 

julian  »  (mod(Yr , 10) *1000)  +  89  +  day 
case  Month  *  5.0 

julian  «  (mod(Yr ,10) *1000)  +  119  ♦  day 
case  Month  *  6.0 

julian  ■  (mod (Yr, 10) *1000)  +  150  +  day 
case  Month  ■  7.0 

julian  «  (mod (Yr, 10) *1000)  ♦  180  +  day 
case  Month  *  8.0 

julian  ■  (mod(Yr , 10) *1000)  +  211  ♦  day 
case  Month  ■  9.0 

julian  ■  (mod(Yr , 10) *1000)  ♦  242  +  day 
case  Month  ■  10.0 

julain  -  (mod (Yr, 10) *1000)  +  272  +  day 
case  Month  -  11.0 

julain  -  (mod(Yr,10) *1000)  +  303  *  day 
case  Month  ■  12.0 

julian  >  (mod(Yr ,10) *1000)  +  334  +  day 
otherwise 

•  15,10  say  [It’s  screwed!] 
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*  i  iv*vv 


return 

endcase 

atora  1  to  leapday 

if  leap  *  0.0  .and.  Month  >2.0  then 
julian  -  leapday  +  julian 
endif 

return 

enddo 

*eof  CAL JUL . UTL 


♦CHKJUL . PRO 
* Author : 
*Date : 

* Purpose: 

* 

* 

*1/0  Files: 
*Called  by: 
♦Calls: 


B.  A.  Whitehouse 
9  August  1987 

To  recalculate  the  julian  date  in  DATE_TERM 
after  adding  days  to  the  current  termination 
date. 

None 

BLD_DPEN . PRG 
None 


PARAMETERS  Mdatet 


Year  -  YEAR ( DATE ( ) ) 

Yr  «  MOD (Year, 100) 
leap  ■  MOD (Yr , 4) 

if  leap  *  0  then 

if  MOD(Mdate  t,1000)  >  366  then 
Mdate_t  «  (Mdate_t  -  366)  +  1000 
endif 
else 

if  MOD (Mdate_t, 1000)  >  365  then 
Mdate_t  *  (Mdate_t  -  365)  +  1000 
endif 
endif 


?  Mdate_t 


*eof  CHKJUL.PRG 


•HTLSTRBP . PRG 
* Author : 

•Date : 

•Purpose: 

* 

* 

* 

•I/O  Files: 

* 

* 

•Calls: 

•Called  by: 

clear 

set  talk  off 

use  pend-d  index  nid_dpen 
select  2 

use  property  index  nid_prop 
select  1 

join  with  property  to  hitlist  for  nid_.no  »  B->nid_no  fields 
nid_.no ,  date.term ,  noun_name ,  qty_e ,  prop_code ,  cond_c_e ,  - 
dept_code ,  rpt_.no 

close  all 

use  hitlist 
go  top 

•  10,10  say  "Is  check  printer  set  up  and  " 
wait 

report  form  hitlist  for  date_term> julian  to  print 

eject 

close  all 

erase  hitlist.dbf 

return 


B.  A.  Whitehouse 
25  July  1987 

This  will  print  out  the  "HitList."  The  Hit 
List  is  a  list  of  those  items  pending 
disposition  and 

have  not  yet  reached  their  termination  date. 
PEND-D. DBF,  PROPERTY. DBF,  NID_DPEN . NDX , 
RPT_DPEN . NDX ,  NID_PR0P . NDX ,  HITLIST.DBF, 
HITLIST. FRM 
None 

DISPOSIT.PRG,  BLD_DPEN . PRG 


•eof  HTLSTREP . PRG 


*1342XRBP . PRG 

* Author:  B.  A.  Whitehouse 

‘Date:  28  August  1987 

‘Purpose:  Prints  a  form  DD1342  with  inputs  from 

*  all  necessary  dbfs  with  the  same  NID  no. 

‘I/O:  PROPERTY. DBF,  PLANT. DBF,  MFG_ INFO . DBF ,  ‘ 

INV  INFO. DBF,  PURCHASE . DBF ;  PRNT1342.FMT 
‘Called  By:  BLD_DPEN . PRG ,  (DISPOSIT.PRG) ,  (PMPS.PRG) 
‘Calls:  None 


clear 

set  talk  off 
erase  temp_l.dbf 
erase  temp__2.dbf 
erase  temp_3.dbf 
erase  temp_A.dbf 
erase  nid_A.ndx 

use  temp_nid 
if  RECCOUNTO  *  0  then 
use 

return 

endif 

use 

use  property 
select  2 
use  plant 
select  1 

join  with  plant  to  temp_l  for  nid__no  -  plant  ->  nid_.no 
close  all 


use  temp_l 
select  2 
use  mfg_info 
select  1 

join  with  rafg_info  to  temp_2  for  nid_no 
close  all 


mfg_info  ->  nid_.no 


use  temp_2 
select  2 
use  inv_info 
select  1 

join  with  inv_info  to  temp_3  for  nid_no 
close  all 


inv_info  ->  nid_.no 


use  temp_3 
select  2 


use  purchase 
sslsct  1 

join  with  purchase  to  teapjk  for  nid_no«purchase->nid_no 
fields  nid_no , julian , stock_.no , cost , dept.code , mf g_year , - 
afgjiaae , af_code , mfg_»od_no , comod_code , type_code , - 
non_*vl_no , pwr_code , length , width , height , weight , noun_name , - 
po_no , sfg_ser_no , locate 

close  all 
use  tenp_nid 
select  2 
use  te*p_A 

index  on  nid_.no  to  nid_A 

do  while  .not.  EOFO 
select  2 

find  &teap_nid->nid_no 

clear 

if  FOUND () 

*  set  device  to  print 
do  prntl342.fmt 
eject 
endif 
select  1 
skip 
enddo 

set  device  to  screen 

select  1 

go  top 

delete  all 

pack 

close  all  databases 

erase  temp_l.dbf 
erase  tenp_2.dbf 
erase  temp_3 .dbf 
erase  temp.Jk.dbf 
erase  nidJA.ndx 
wait  to  continue 
clear 

return 


•Bof  1342IREP ■> PRC 


*SF120REP . PR6 

* Author:  B.  A.  Whitehouse 

‘Date:  8  August  1987 

‘Purpose:  To  append  information  to  a  temporary  file 

*  (TEMPSF.DBF)  which  will  later  be  used  to 

*  create  a  report  called  SF120REP  used  to  type 

*  up  the  SF  120. 

*1/0  Files:  TEMPSF.DBF 

‘Called  by:  BLD_DPEN . PRG 

‘Calls:  None 

clear 

‘memory  variables 
Mqty  »  0 

Mrptjnum  »  space (11) 

Mname  ■  space (30) 

store  nid_.no  to  NID 
store  qty_e  to  Mqty 
store  rpt_no  to  Mrpt_num 
select  1 

store  noun_name  to  Mname 

select  9 

use  tempsf 

append  blank 

replace  nid_no  with  NID 

replace  noun_name  with  Mname 

replace  cost  with  mfg_info->cost 

replace  qty_e  with  Mqty 

replace  rpt_no  with  Mrpt_num 

use 

return 


*eof  SF120REP.PRG 


*DISP_MGT.PRG 
* Author : 
"Date: 

* Purpose: 

* 


* 

*1/0  Piles: 
"Celled  By: 
"Cells: 


B.  A.  Whitehouse 
8  July  1987 

This  module  sllows  the  user  to  menage  or 
chenge  status  of  records  on  the 
PBNDING-D  PILE,  (done  when  processing  DARIC/ 
DIPEC_INST,  or  DATE_TERM  requests)  or 
modify  records  on  the  disposition  file. 

None 

PMPS.PRG 

MGTSTAT . PRG ,  MODREC . PRG 


clear 

set  talk  off 
store  "  "to  choice 


do  while  .t. 

•  2,0  to  21,79  double 

•  3,25  say  [Dispositions  Management  Menu] 

•  4,1  to  4,78  double 

•  7,20  say  [  Task  Task  Code] 

•  9,20  say  [Manage  Status  Pending-D  Pile  1] 

•  10,20  say  [Modify  Record  2] 

•  12,20  say  [Return  to  PMPS  Main  Menu  3] 

? 

? 

? 

wait  "  Enter  your  choice  (Task  Code) :  "  to  choice 

do  case 

case  choice  »  *1* 
do  mgtstat 

case  choice  *  *2' 
do  modrec 

case  choice  ■  '3' 
clear 
return 

otherwise 

loop 


endcase 
close  all 
enddo 


"eof  DISP JMGT . PRG 


•MGTSTAT.PRG 
* Author : 

*Date: 

* Purpose: 

* 

* 

* 

*1/0  Files: 

*Called  By: 

*Calls: 

GKTRPT . PRG , 

• 

clear 

set  talk  off 
store  "  "to  choice 
do  caljul.utl 

clear 

rptjaum  -  space (11) 
ans  «  "Y" 

do  while  . t . 

•  2,0  to  21,79  double 

•  3,23  say  [Record  Processing  &  Status  Update] 

•  4,1  to  4,78  double 

•  7,18  say  t  Task  Task  Code] 

•  9,18  say  [Received  OARIC  Instructions  1] 

•  10,18  say  [Received  DIPEC  Instructions  2] 

•  11,18  say  [Process  Termination  Date  3] 

•  13,18  say  [Return  to  Disposition  Mgt.  Menu  4] 

? 

? 

? 

wait  "  Enter  your  choice  (Task  Code) :  "  to  choice 

clear 

do  case 

case  choice  ■  '1' 
do  while  .t. 
do  getrpt 

•  7,10  say  [Is  report  number  &MRPT  correct?]  get 

ans 

read 

if  ans  ■  'Y'  .or.  ans  ■  'y'  then 
exit 
endif 
enddo 

use  pend-d  index  rpt  dpen,nid  dpen 
find  &MRPT 

do  while  .not.  BOFO  .and.  rpt_no  *  MRPT 


B.  A.  Whitehouse 
30  July  1987 

This  module  allows  the  user  to  update 
status  on  the  Pending  Dispositions 
file  according  to  instructions 
received  from  DARIC  and/or  DIPEC. 
PEND-D. DBF,  NID  DPEN.NDX,  RPT_DPEN . NDX 
DISP_MGT . PRG 

INPUTINS . PRG ,  CHKPHASE . PRG , 

GETNID.PRG 


do  inputin 

if  date  term  <■  julian  .and.  phase  *  "R"  then 
phase  -  "DL" 
endif 
skip 
enddo 
close  all 

case  choice  *  *2* 
do  getnid 

use  pend-d  index  nid  dpen,rpt  dpen 
find  &NID 
if  POUND ()  then 
do  inputin 

if  date_term  <*  julian  .and.  phase  =  "R"  then 
phase  *  "DL" 
endif 
endif 
close  all 

case  choice  *  ' 3 ' 

use  pend-d  index  nid_ dpen, rpt_dpen 
go  top 

do  while  .not.  EOFO 

if  date_term  <®  julian  .and.  phase  *  "R”  then 
phase  *  "DL" 
endif 
skip 
enddo 
close  all 

case  choice  «  '4' 

use  pend-d  index  nid_dpen, rpt_dpen 

do  chkphase 

close  all 

clear 

return 

otherwise 

•  13,18  say  [Enter  one  of  the  Task  Codes.] 
loop 
endcase 
clear 
enddo 


*eof  MGTSTAT.PRG 


•GETRPT.PRG 
•Author : 
•Date: 
•Purpose: 

* 

* 

* 

•I/O: 

•Called  By: 
•Calls: 


clear 

set  talk  off 
public  MRPT 

MRPT  -  "N62271- 
store  .  t.  to  check 

do  while  check 

•12,05  say  [Enter  the  Report  number  followed  by  <RTN> : ] 

•12,47  get  MRPT  picture  ’ A99999A9999 ' 
read 

if  len(r trim (MRPT) )  <  11 

store  .t.  to  check 

•14,10  say  [The  Report  Number  you  input  was  too  short;] 

•15,10  say  [please  check  and  try  again,] 

•16,10  say  [] 

wait  to  continue 
clear 

else 

store  . f,  to  check 
clear 

endif 

enddo 


B.  A.  Whitehouse 
11  August  1987 

Solicits  REPORT  number  from  the  user,  shows  the 
user  a  template  then  checks  for  proper  length 
and  alphabetic  characters.  It  continues  to 
loop  until  a  proper  REPORT  number  is  input. 

MRPT  (Public  Memory  Variable) 

None 


•eof  GETRPT.PRG 


* INPUTIN . PRG 

•Author:  B.  A.  Whitehouse 

•Date:  31  July  1987 

•Purpose:  This  module  allows  the  user  to  update  the 

•  information  contained  in  the  pending 

•  dispositiion  record  according  to  the 

•  instructions  received  from  DARIC  and/or  DIPEC. 

•I/O  Files:  P END'D. DBF,  NID JDPEN . NDX ,  RPT_DPEN . NDX 

•Called  By:  MGTSTAT.PRG 

•Calls:  None 

clear 

set  talk  off 

store  date_term  to  inst_d_date 
store  phase  to  inst_act 
store  nid_.no  to  tempnid 

•7,7  say  [For  NID  number  &tempnid  ...] 

•  9,7  say  [Enter  ARD  from  DIPEC/DARIC  instruction.] 

•  10,10  say  [Julian  date  format  (YDDD)]  get  inst_d_date 
picture 

•9999' 

•12,7  say  [Enter  instructed  action  (PHASE  ■  ’DL'  or  ’ DT’)] 
get 

inst  act 


replace  date_term  with  inst_d_ date 
replace  phase  with  inst_act 
return 

•eof  INPUTIN. PRG 


‘CHKPHASE.PRG 
* Author : 

‘Date: 

‘Purpose: 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*1/0  Files: 

* 

* 

‘Called  By: 

‘Calls: 

set  talk  off 
clear 
go  top 
select  2 
use  property  index  nid_prop 
select  1 

set  relation  to  nid_no  into  property 
select  3 

use  mfg_info  index  nid_mfg 

select  2  '  „  - 

set  relation  to  nid_no  into  mfg_info 
select  1 

‘  When  it  can  be  determined  the  exact  format 

*  for  each  1348-1,  this  should  be  coded  to  print  out 

‘  the  1348-1.  In  the  mean  time  it  will  only  print  a 

*  report  containing  a  list  of  those  items  on  which  a 

*  1348-1  should  be  created. 


B.  A.  Whitehouse 
1  August  1987 

This  module  uses  the  Pending  Dispositions 
(PEND-D)  file  and  prints  a  DD  form  or  a 
report  according  the  code  appearing  in  the 
PHASE  field.  A  phase  of  'DL'  will  cause  a 
1348-1  to  be  printed  and  set  phase  -  ' DLH' 
A  phase  code  of  'DT'  will  cause  a  Transfer 
Report  to  be  created  and  set  phase  *  ' DTH ' 
Finially,  if  there  is  a  'DLH'  or  'DTH'  in 
the  phase  code  a  Hold  Report  will  be 
created. 

PEND-D. DBF,  PROPERTY. DBF,  MFG_INF0 . DBF , 
NID_DPEN . NDX ,  RPT  DPEN.NDX,  NID_PROP.NDX, 
NID_MFG . NDX 
MGTSTAT.PRG 

DD1348-1 . PRG,  TRANSREP. PRG 


do  transrep 

? 

WAIT  [For  hard  copy  press  <SHIFT> <PRINT> ,  otherwise  any  key 
to 

continue. ] 
do  DD1348-1 
? 

WAIT  (For  hard  copy  press  <SHIFT><PRINT> ,  otherwise  any  key 
to 

continue . ] 
go  top 
do  holdrep 
? 

WAIT  (For  hard  copy  press  <SHIFT><PRINT> ,  otherwise  any  key 


to  continue.] 
close  ell 
return 


*eof  CHKPHASE . PRG 


*TRANSRBP . PRG 
* Author : 
•Date: 

* Purpose : 


* I/O  Piles: 
*Cells : 

* Called  By: 


B.  A.  ffhitehouse 
12  August  1987 

To  print  e  report  of  those  items  which  have 
been  designated  for  transfer  to  some  other 
military  installation. 

PROPERTY . DBF ,  PEND-D.DBF,  MFG_INFO . DBF 
None 

CHKPHASB . PRG 


set  talk  off 
clear 

store  10  to  lineno 


go  top 

•  0,0 

•2,30  say  "Transfer  Report" 

•  3,15  say  "Items  being  transfered  to  other  military  bases" 

•  5,10  say  DATEO 
•7,62  say  "Date" 

•7,69  say  "Dept" 

•8,4  say  "P/C" 

•8,8  say  "NID  Number" 

•8,20  say  "  Item  Name" 

•  8,50  say  "Report  No." 

•8,63  say  "Term" 

•8,69  say  "Code" 

do  while  .not.  EOFO 

if  UPPER(phase)  ■  "DT  "  .and.  .not.  DELETEDO 

•  lineno, 4  say  property- >prop_code 

•  lineno,  8  say  nid_.no 

•  lineno, 22  say  proper ty->noun_name 

•  lineno,  50  say  rpt_.no 

•  lineno, 63  say  date_term 

•  lineno, 69  say  property->dept_code 
store  lineno  +  1  to  lineno 
replace  phase  with  "DTH" 

endif 

skip 

enddo 

return 


*eof  TRANSREP. PRG 


•DD1348-1 . PRG 
•Author : 
•Date: 
•Purpose: 

* 

* 

•I/O  Files: 
•Calls: 
•Called  By: 


B.  A.  Whitehouse 
12  August  1987 

To  print  a  report  of  those  items  which  have 
been  designated  for  disposition  locally. 

A  DD  1348-1  itself  should  be  printed. 
PROPERTY. DBF,  PEND-D.DBF,  MFG_INFO . DBF 
None 

CHKPHASE . PRG 


clear 

store  10  to  lineno 


go  top 

•  0,0 

•2,23  say  "Items  For  Local  Disposition” 

•  3,19  SAY  "These  items  need  a  DD  1348-1  typed" 

•  5,10  say  DATEO 
•7,4  say  "NID  Number" 

•7,17  say  "P/C" 

•7,21  say  "Stock  No." 

•7,28  say  ”  Item  Name” 

•7,58  say  "MFR  Ser.  No.” 

•8,46  say  "MFR  Model  No." 

do  while  .not.  EOFO 

if  UPPER (phase)  *  "DL  "  .and.  .not.  DELETED ()  .and. 
date_term 
<  julian 

•  lineno, 4  say  nid_no 

•  lineno, 18  say  property->prop_code 

•  lineno, 22  say  mfg_info->stock_no 

•  lineno, 29  say  property->noun_name 

•  lineno, 58  say  property- >mf g_ser_.no 
store  lineno  +  1  to  lineno 

•  lineno, 47  say  property- >mf g_mod_.no 
store  lineno  +  1  to  lineno 
replace  phase  with  "DLH" 

endif 

skip 

enddo 

return 


•eof  DD1348-1 . PRG 


♦HOLDRBP . PR6 
♦Author : 
♦Date: 
♦Purpose: 

* 

* 

♦I/O  Files: 
♦Calls: 
♦Called  By: 


B.  A.  Whitehouse 
13  August  1987 

To  print  a  report  of  those  items  which  have 
been  placed  on  hold  awaiting  conformation  of 
receipt  by  those  who  are  to  receive  the  items. 
PROPERTY. DBF,  PEND-D . DBF ,  MFG_INFO . DBF 
Hone 

CHKPHASE . PRG 


set  talk  off 
clear 

store  10  to  lineno 


go  top 

•  0,0 

•  2,35  say  "Hold  Report” 

•3,2  say  "Records  of  items  which  have  been  sent  out  now 
awaiting  a  signed  1348-1  or  1149” 

•  5,10  say  DATEO 
•7,55  say  "Date" 

•7,61  say  "Dept" 

•8,6  say  ”P/C" 

•8,11  say  "NID  Number" 

•8,24  say  "  Item  Name" 

•8,55  say  "Term" 

•8,61  say  "Code" 

do  while  .not.  EOF() 

if  UPPER (phase)  -  "DLH"  .or.  UPPER (phase)  =  "DTH"  .and. 
.not.  DELETED () 

•  lineno, 7  say  property- >prop_code 

•  lineno,  11  say  nid_.no 

•  lineno, 24  say  property- >noun_name 

•  lineno, 55  say  date_term 

•  lineno, 61  say  property- >dept_code 
store  lineno  +  1  to  lineno 

endif 

skip 

enddo 

return 


♦eof  HOLDREP . PRG 


‘MODRBC . PR6 

* Author : 

B.  A.  Whitehouse 

‘Date: 

3  August  1987 

‘Purpose: 

To  allow  the  user  to  select 

from  a  menu  the 

* 

various  programs  which  will 

allow  him  to  delete 

* 

a  record,  update  or  correct 

data,  print  a  1342. 

‘I/O  Files: 

None 

‘Called  by: 

DISP  M6T.PRG 

‘Calls: 

DLET  REC.PRG,  FIX__ DATA . PRG , 

PRNT1342 . PRG , 

* 

REUTILIZ . PRG 

clear 

set  talk  off 

store  "  "to  choice 
text 

MODIFICATION  OF  RECORDS 

The  following  screen  will  allow  you  to  delete  records,  make 
corrections  to  data,  print  a  1342,  or  process  an  item  for 
reutilization.  Processing  the  signed  1149  (reciept)  and 
1348-1 

from  DRMO  are  the  same  thing,  you  no  longer  have  to  carry 
these 

items  on  your  books. 

endtext 
wait  to  cont 
clear 

do  while  .t. 

•  2,0  to  21,79  double 

•  3,30  say  [Modification  Menu] 

•  4,1  to  4,78  double 


•7,20  say  [  Task  Task  Code] 

•9,20  say  [Process  signed  DD  1149  reciept  1] 

•  10,20  say  [Process  signed  DD  1348-1  2] 

•  11,20  say  [Make  Corrections  to  Data  3] 

•  12,20  say  [Print  DD  1342  4] 

•  13,20  say  [Delete  a  Record  5] 

•  14,20  say  [Process  Item  for  Reutilization  6] 

•  16,20  say  [Return  to  Disposition  Mgt.  Menu  7] 


? 

? 

? 

wait  "  Enter  your  choice  (Task  Code) :  "  to  choice 

do  case 

case  choice  ■  '1' 
do  diet  rec 


case  choice  *  ' 2 ' 


do  dletjrec 

case  choice  *  *3' 
do  fix_data 

case  choice  ■  '4* 
do  prntl342 

case  choice  ■  '5* 
do  dlet_rec 

case  choice  ■  '6' 
do  reutiliz 

case  choice  *  *7* 
clear 
return 

otherwise 

•  17,30  say  (  Enter  one  of  the  choices  only.] 
loop 

endcase 

close  all 
enddo 


*eof  MODREC.PRG 


*DLET_JREC . PRO 
* Author : 
•Date: 

* Purpose: 


* 

* 


*1/0  Files: 


* 

* 


*Called  by: 
*Cells: 


B.  A.  Whitehouse 
3  August  1987 

To  allow  the  user  to  select  a  record  to  from 
the  database  by  input ing  a  NID  number  or 
document  number  and  then  deleting  all 
associated  fields  from  each  relation. 
PROPERTY . DBF ,  PLANT. DBF,  PENDING. DBF, 

PEND-D . DBF ,  MFG_INF0 . DBF ,  PURCHASE . DBF , 
INV_INF0 . DBF ,  NID  PROP . NDX ,  NIDPLANT . NDX , 
NIDPEND . NDX ,  NIDJ5PEN.NDX,  RPT  DPEN.NDX, 
NID_MFG . NDX ,  NID_PURC . NDX ,  NID_INV.NDX 
MODREC.PRG 
GETNID.PRG 


clear 

ans  -  *Y* 

nid  -  space (12) 

sure  -  'N' 


do  while  .t. 

•  5,7  say  [Do  you  have  a  NID  number  for  the  record  to  be 
deleted?] 

•  6,7  say  [  ’ Y'  for  yes  or  'R'  to  return  to  Main  Menu] 

get 

ans 

read 

? 

?  , 

if  ans  ■  • r'  .or.  ans  ■  ' r '  then 
clear 
return 
endif 


if  ans  ■  * Y'  .or.  ans  -  ' y'  then 
clear 
do  getnid 

•8,10  say  [Are  you  sure  you  want  to  delete  this 
record?]  get  sure 
read 

if  sure  -  ’Y*  .or.  sure  *  'y '  then 
clear 

•  5,7  say  [Deleting  Record,  &NID] 
use  property  index  nid_prop 
find  &NID 

if  .not.  FOUND {)  then 

•  7,5  say  [Record  not  found.] 

? 

wait 

else 

if  prop_code  ■ 
select  2 


'  P '  . or .  prop_code 


'p*  then 


use  plant  Index  nidplant 
find  MIID 

delete 

pack 

usa 

select  1 
delete 
pack 
else 

delete 

pack 

use  pending  index  nidpend 
find  &NID 
delete 
pack 
endif 

use  pend-d  index  nid_dpen 
find  &NID 
if  POUND  O  then 
delete 
pack 
endif 

use  mfg_info  index  nid  mfg 

find  &NID 

delete 

pack 

use  purchase  index  nid_purc 

find  &NID 

delete 

pack 

use  inv_info  index  nid  inv 

find  &NID 

delete 

pack 

use 

return 

endif 

clear 

else 

clear 

return 

endif 

else 

clear 

•  9,5  say  [Enter  ”Yn  or  "R"  for  Yes  or  Return.] 

•  10,5  say  [If  you  haven't  got  a  NID  Number,  use  the 
Modify  Record  part] 

•  11,5  say  (of  this  System  to  browse  the  files  but  now, 

use] 

•  12,7  say  [  an  NRn  to  return  to  the  previous  menu.] 
endif 

enddo 


clear 

return 

*eof  DLET  REC.PRG 


172 


•FXX_DATA . PRO 
* Author: 
•Date: 
•Purpose: 

* 

* 

•I/O  Piles: 
•Celled  by: 
•Calls: 


B.  A.  Whitehouse 
11  August  1987 

To  allow  the  user  to  make  corrections 
to  the  records  in  the  logical  Pending 
Dispostions  file. 

None 

MODREC . PRG 

FIXBYNXD . PRG ,  FIXBYRPT . PRG 


clear 

set  talk  off 

store  *  "to  choice 

text 


MODIFICATION  OF  RECORDS 


You  will  find  it  far  easier  to  locate  and  correct  existing 
records  if  you  use  the  NID  Number  to  locate  them.  This  is  of 
course  not  always  possible.  The  next  best  thing  is  to  use 
the  Report  Number  and  then  list  each  record  having  that 
report  number  untill  you  find  the  one  you  are  looking  for. 


endtext 
wait  to  cont 
clear 

do  while  .  t. 

•  2,0  to  21,79  double 

•  3,21  say  [Corrections  to  Pending  Disposition  File] 

•  4,1  to  4,73  double 

•  7,21  say  [  Task  Task  Code] 

•  9,21  say  [Using  a  NID  Number  1] 

•  10,21  say  [Using  a  Report  Number  2] 

•  12,21  say  [Return  to  Modification  Menu  3] 


? 

? 

? 

wait  n  Enter  your  choice  (Task  Code) : 


do  case 

case  choice  ■  '1* 
do  fixbynid 


"  to  choice 


case  choice  ■  '2' 
do  fixbyrpt 

case  choice  *  ’3* 
clear 
return 


otherwise 


•  17,30  say  [  Enter  one  of  the  choices  only.] 
loop 


endcase 

enddo 

*eof  FIX  DATA . PRG 


•FIXBYNID . PRG 

* Author:  B.  A.  Whitehouse 

•Date:  11  August  1987 

•Purpose:  To  allow  the  user  to  make  corrections  to  the 

•  records  in  the  logical  Pending  Dispositions 

•  file  using  the  NID  number  to  find  them. 

•I/O  Files:  PEND-D.DBF,  PROPERTY . DBF ,  PENDING. DBF, 

*  MFG  INFO. DBF,  NID_DPEN . NDX ,  RPT_DPEN . NDX , 

*  NID  PROP. NDX,  NIDPEND.NDX,  NID_MFG . NDX 

•Called  by:  FIX_DATA . PRG 

•Calls:  GETNID . PRG 

clear 

set  talk  off 
clear 

again  =  . t . 
answ  a  space ( 1 ) 

text 

Make  whatever  changes  are  appropriate  to  the  record  which 
appears  on  the  screen.  Be  sure  to  varify  that  the  NID  Number 
is  the  one  you  intended  to  get.  Upon  entering  the  last  field 
(Status)  the  record  will  be  updated. 

endtext 

select  4 

use  pend-d  index  nid_dpen, rpt_dpen 
select  1 

use  property  index  nid _prop 
select  4 

set  relation  to  nid_.no  into  property 
select  3 

use  pending  index  nidpend 
select  1 

set  relation  to  nid_.no  into  pending 
select  5 

use  mfg_info  index  nid_mfg 
select  3 

set  relation  to  nid_no  into  mfg_info 

select  4 

wait 

go  top 
do  getnid 
find  &NID 

if  FOUND ()  then 

cond_cd  *  cond_c_e 

date_ent  m  date_ent_ d 

term_dt  •  date  term 


phase_cd 

■  phase 

poc 

*  poc_n 

poc_ph 

■  poc_p_no 

qty 

«  qty_e 

rept_num 

■  rpt_no 

select  3 

status 

=  pend_stat 

select  1 

mfr_name 

=■  mfg_name 

serialjno 

*  mfg_ser_no 

n_name 

*  noun_name 

model_.no 

*  mfg_mod_no 

prop_cd 

*  prop_code 

dept 

*  dept_code 

select  5 

mfr_yr 

*  mfg_year 

stock_num 

»  stock_.no 

type_cd 

*  type_code 

price 

•  cost 

•0,25  say 

[Disposition 

2.3 

3.3 

4.3 

5.3 

6.3 

7.3 

8.3 

9.3 

10.3 

11.3 

12.3 

13.3 

14.3 

15.3 

16.3 

17.3 

18.3 

19.3 

20.3 


say 

say 

say 

say 

say 

say 

say 

say 

say 

say 

say 

say 

say 

say 

say 

say 

say 

say 

say 


Manufacture's  Name:]  get  mfr_name 

Mfr's  Serial  Number:]  get  serial_.no 

Item  Noun  Name:]  get  n_name 

Mfr's  Model  Number:]  get  model jno 

Property  Code:]  get  propped 

Department  Code:]  get  dept 

Year  Manufactured:]  get  m£r_yr 

Stock  Number:]  get  stockjnum 

Type  Code : ]  get  type_cd 

Cost  at  purchase:]  get  price 

Condition  Code:]  get  cond_cd 

Date  Entered  Dispositions:]  get  date_ent 

Termination  Date:]  get  term_dt 

Phase  code:]  get  phase.cd 

Point  of  Contact;]  get  poc 

POC  Phone  Number:]  get  poc_ph 

Quatity  Excess:]  get  qty 

Report  Number:]  get  rept_num 

Status  of  Record:]  get  status 


read 
select  1 

replace  mfgjname  with  mfr__name 
replace  mfg_ser_.no  with  serial_no 
replace  noun_name  with  n_name 
replace  mfg_mod_no  with  modeljno 
replace  prop_code  with  prop_cd 
replace  dept_code  with  dept 


select  5 

replace  mfg_year  with  mfr_yr 
replace  stock_.no  with  stock_num 
replace  type_code  with  type_cd 
replace  cost  with  price 
select  3 

replace  pend_stat  with  status 
select  4 

replace  cond_c_e  with  cond__cd 
replace  date_ent_d  with  date_ent 
replace  date_term  with  term_dt 
replace  phase  with  phase_cd 
replace  poc_n  with  poc 
replace  poc_p_no  with  poc_ph 
replace  qty_ e  with  qty 
replace  rpt_no  with  rept_ num 

clear 

else 

•  10,10  say  [Record  not  found.] 

? 

wait 
endif 
close  all 
clear 
return 


*eof  FIXBYNID . PRG 


♦FIXBYRPT . PR6 
♦Author : 

♦Date : 

♦Purpose: 

* 

* 

♦I/O  Files: 

* 

* 

♦Called  by: 

♦Calls: 

clear 

set  talk  off 
clear 

again  =  . t . 
answ  *  space 

text 

Make  whatever  changes  are  appropriate  to  the  record  which 
appears  on  the  screen.  Be  sure  to  varify  that  the  Report 
Number  is  the  one  you  intended  to  get.  Upon  entering  the 
last  field  (status)  the  record  will  be  updated. 

(YOU  DON'T  HAVE  TO  CHANGE  ANYTHING) 


endtext 
select  4 

use  pend-d  index  rpt_dpen,nid_ dpen 
select  1 

use  property  index  nid_j?rop 
select  4 

set  relation  to  nid_.no  into  property 
select  3 

use  pending  index  nidpend 
select  1 

set  relation  to  nid_no  into  pending 
select  5 

use  mfg_info  index  nid_ihfg 
select  .3 

set  relation  to  nid__no  into  mfg_info 

select  4 

wait 

do  while  .t. 
go  top 
do  getrpt 
find  &MRPT 

if  .not.  FOUND 0  then 

•  10,10  say  [Record  not  found] 
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B.  A.  Whitehouse 
11  August  1987 

To  allow  the  user  to  make  corrections  to  the 
record  in  the  logical  Pending  Dispositions 
file  using  the  Report  Number  to  find  them. 
PEND-D. DBF,  PROPERTY . DBF ,  PENDING. DBF, 
MFG_INF0 . DBF ,  RPT  DPEN.NDX,  NID_DPEN . DBF , 
NID_PR0P . NDX ,  NIDPEND. NDX,  NID_MFG.NDX 
FIX_DATA. PRG 
GETRPT. PRG 


(1) 


wait 

andif 

do  while  rpt_no  *  MRPT 
select  4 

NZD  *  nid_no 

cond_cd  *  cond_c_e 

date_ent  ■  date_ent_d 

term_dt  *  date_term 

phase_cd  ■  phase 

poc  *  poc_n 

poc_ph  ■  poc  _p_no 

qty  -  qty_e 

rept_num  ■  rpt_no 

select  3 

status  •  pend_stat 

select  1 

nfr_name  *  mfg_name 
serial_.no  ■  nfg_ser_no 
n_name  *  noun_name 

aodel_.no  ■  nfg_aod_no 
propped  *  prop_code 

dept  »  dept_code 

select  5 

a£r_yr  »  a£g_year 
stock_nua  »  stock_.no 
type_cd  »  type_code 

price  >■  cost 

select  4 

do  fixby.fmt 
read 

•  19,5  say  [Have  you  changed  this  record?  (Y/N) ]  get 

anew 

read 

if  anew  -  ’ Y’  .or.  answ  *  *y'  then 
select  1 

replace  nfg_nane  with  afr_naae 
replace  nfg_ser_.no  with  serial_.no 
replace  noun_naae  with  n.naae 
replace  afg_jiod_no  with  aodel_no 
replace  prop_code  with  propped 
replace  dept_code  with  dept 
select  5 

replace  nfg_year  with  afr_yr 
replace  stock_no  with  stock_nua 
replace  type_code  with  type.cd 
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replace  cost  with  price 
select  3 

replace  pend.stat  with  status 

select  4 

replace  cond.c.e  with  cond_cd 
replace  date.ent.d  with  date_ent 
replace  date.term  with  term.dt 
replace  phase  with  phase_cd 
replace  poc.n  with  poc 
replace  poc_p.no  with  poc _ph 
replace  qty.e  with  qty 
replace  rpt.no  with  rept.num 

clear 
select  4 

•  10,10  say  [Would  you  like  to  do  anohter  which  may 

have] 

•  11,12  say  [the  same  report  number?  (Y/N) ]  get  answ 

read 

if  answ  ■  ’ Y'  .or.  answ  -  ' y '  then 
skip 
clear 

else 

exit 

endif 

else 

select  4 
clear 

•  10,10  say  [Would  you  like  to  look  at  another 

record 
which  may] 

•  11,10  say  [have  the  same  report  number?  (Y/N)]  get 

answ 

read 

clear 

if  answ  -  'Y*  .or.  answ  -  'y*  then 
skip 

else 

exit 

endif 

endif 

enddo 

select  4 

clear 

•  10,10  say  [Want  to  look  at  different  report  #?  (Y/N)] 

get  answ 
read 

if  answ  -  1 N '  .or.  answ  -  ' n’  then 
clear 
exit 


‘RBUTILIZ . PRG 

* Author:  B.  A.  Whitehouse 

‘Date:  3  August  1987 

‘Purpose:  This  module  allows  the  user  to  delete  items 

*  identified  for  reutilization  at  this  command 

*  from  the  pending  disposition,  to  change  the 

*  department  code,  and  location  of  the  new 

*  owner . 

*1/0  Files:  PROPERTY. DBF,  INV__INF0 . DBF ,  PEND-D.DBF, 

*  PENDING. DBF,  NID_PR0P . NDX ,  NID  INV.NDX, 

*  NIDPEND.NDX,  NDI_DPEN.NDX,  RPT  DPEN.NDX 

‘Called  by:  MODREC . PRG 

‘Calls:  GETNID . PRG ,  GETRPT . PRG 

clear 

ans  =  "Y" 
nid  ■  space (12) 
dept  *  space (4) 

Mbldg  =  space (4) 

Mroom  =  space ( 4 ) 


do  while  . t . 

•  7,5  say  [Do  you  have  a  NID  number  for  item  to  be 
reused?] 

•  8,5  say  [  (Y/N)  or  R  to  return  to  Main  Menu]  get  ans 

read 

if  ans  =  "R”  .or.  ans  ■  "r"  then 
clear 
close  all 
return 
endif 

if  ans  »  "Y"  .or.  ans  *  "y"  then 
clear 
do  getnid 
select  1 

use  property  index  nid_prop 
select  2 

use  inv_ info  index  nid_inv 
select  1 

set  relation  to  nid_no  into  inv_info 
find  &NID 
if  FOUND ( )  then 

•  5,5  say  [Enter  new  Department  Code:]  get  dept 

•  7,5  say  [Enter  new  Building  Number:]  get  Mbldg 

•  9,5  say  [Enter  new  Room  Number:]  get  Mroom 

read 

replace  dept_code  with  dept 
select  2 

replace  locate  with  Mbldg-Mroom 

select  4 

use  pend-d  index  nid  dpen 
find  &NID 
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delete 

pack 
salact  3 

use  pending  index  nidpend 
find  &NID 

replace  pend_stat  with  HR" 
clear 
close  all 
else 

•  13 , 10  say  [NID  does  not  exist  in  Property  file.] 
wait 
clear 
endif 
else 

if  ans  *  "N"  .or.  ana  ■  "n"  then 
clear 
do  getrpt 
select  4 

use  pend-d  index  rpt  dpen,nid  dpen 
find  &MRPT 
if  FOUND {)  then 
clear 

do  while  .not.  BOFO  .and.  rpt_.no  ■  MRPT 
display 

•  15,10  say  [Is  this  the  record  you  are 

looking 

for?  (Y/N) ]  get  ans 
read 

if  ans  -  'Y'  .or.  ans  *  'y'  then 
replace  NID  with  nid_no 

delete 

pack 

use  property  index  nid _prop 
select  2 

use  inv_info  index  nid_inv 
select  1 

set  relation  to  nid  no  into  inv  info 
find  &NID 

•  5,5  say  [Inter  new  Department  Code: ]  get 


dept 

Mbldg 


Mroom 


•7,5  say  [Inter  new  Building  Number:]  get 

•9,5  say  [Inter  new  Room  Number:]  get 

replace  dept_code  with  dept 
select  2 

replace  locate  with  Mbldg-Mroom 
select  3 

use  pending  index  nidpend 
find  &NID 

replace  pend_stat  with  "R" 


select  4 

clear 

skip 

•Isa 

if  ans  ■  *N'  .or.  ans  ■  ’n*  then 
skip 
clear 

else 

clear 

•  21,10  say  [YES  or  NO  (Y/N) ] 

•ndif 

•ndif 

•nddo 

clear 

•  5,10  say  [You  have  reached  the  end  of  the  file] 

•  6,10  say  [and/or  you  have  found  what  you  are 
looking  for.] 

? 

wait 

close  all 
exit 

else 

•  9,5  say  [Record  does  not  exist  in  Pending 
Dispositions] 

wait 

close  all 
return 
endif 

else 

•  9,5  say  [Enter  "Y"  or  "NH  for  Yes  or  No.] 
endif 
endif 
enddo 


*eof  REUTILIZ . PR6 


APPENDIX  D 


USER’S  QUICK  REFERENCE  GUIDE 

The  users’  Quick  Reference  is  intended  to  assist  MCD 
employees  in  using  the  PUPS  automated  prototype  described  in 
this  thesis.  It  is  assumed  the  individual  is  already 
familiar  with  Navy-wide  as  well  as  local  practices  and 
procedures  used  in  accounting  for  plant  and  minor  property. 
The  Quick  Reference  is  not  meant  to  train  the  individuals  in 
these  standard  operating  procedures,  nor  in  the  use  of  the 
dBase  III  Plus  data  base  management  system  and  its  command 
language. 

This  system  is  only  a  prototype  and  not  intended  for  use 
as  a  production  product.  There  are  instances  throughout  the 
system  that  what  can  and  cannot  happen  presently  is  less  than 
desirable;  for  instance: 

1.  No  single  command  is  available  that  will  consistently 
allow  the  user  to  quit  and  escape  from  what  is  being  done, 
and  be  assured  the  data  base  will  remain  in  good  shape. 

2.  There  are  many  cases  where,  once  a  series  of  input 
screens  start  to  appear  on  the  monitor,  the  user  must  work 
through  each  screen.  If  the  user  has  nothing  worthwhile  to 
input,  the  data  base  will  be  loaded  with  insignificant  data 
or  have  blank  records.  This  will  create  work  for  the  data 
base  administrator. 

3.  There  are  very  few  routines  to  prevent  illegal  and/or 
insignificant  data  from  being  entered. 


Plant  and  Minor  Property  System 
Quick  Reference  Guide 
Index 


Title  (Program  Name)  Page 

Plant  and  Minor  Property  (PMPS.PRG)  .  187 

Acquisitions  ( ACQUIS IT. PRG)  .  189 

Notice  of  Pending  Receipt  (NT_PEN  R.PRG)  .  191 

Get  NIO  Number  (GETNID.PRG)  .  194 

Equipment  Receipt  ( EQ_RECPT . PRG )  .  195 

Reconcile  DD  1342  (MAKE1342 . PRG)  .  198 

Print  DD  1342  (PRNT1342 . PRG)  .  201 

Modify  DD  1342  (VIEW1342 . PRG)  .  203 

Inventory  Files  (INVMENU.PRG)  .  205 

Browse/Edit  Inventory  ( VIEWINV. PRG)  .  206 

Print  Inventory  List  (PRNTINV.PRG)  .  208 

Pending  Files  ( PENDMENU . PRG )  .  209 

Browse/Edit  Pending  File  (VIEWPEND.PRG)  .  210 

Print  Pending  File  (PRNTPEND.PRG)  .  212 

Input  Disposition  Transactions  ( INPUT_TR . PRG )  .  213 

Input  Excesses  ( INPT_EXC . PRG )  . . .  214 

Other  Excesses  ( OTHEREXC . PRG )  .  217 

Build  Pending  Dispositions  ( BLD_DPEN . PRG )  .  219 

Disposition  Management  (DISP_MGT. PRG)  .  221 

Manage  Status  Pending-D  File  ( MGTSTAT . PRG )  .  222 

Get  Report  Number  (GETRPT.PRG)  .  225 

Modify  Record  (MODREC . PRG)  .  226 

Delete  Record  ( DLET_REC . PRG )  .  228 

Corrections  to  Data  ( FIX_DATA . PRG )  .  229 

Process  Item  for  Reutilization  (REUTILIZ.PRG)  .  232 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  PMPS.PRG  (Plant  and  Minor  Property  System) 

2.  PROMPT:  The  PMPS  Main  Menu  screen  (Figure  D.l). 

3.  PURPOSE:  Accessing  the  major  sub-sections  of  the  PMPS, 
in  order  to  enter,  update,  and  close  out  plant  and  minor 
property  records. 

4.  TO  RUN:  Initiate  dBase  III  Plus  by  having  the  software 
loaded  into  the  computer  and  typing  "DBASE" .  Select  the 
appropriate  default  drive  using  the  "ASSIST"  command.  At  the 
dBase  III  Plus  prompt,  type  "DO  PMPS"  <RTN>.  The  screen 
shown  in  Figure  D.l  will  appear. 

5.  TO  USE:  Select  the  desired  option  from  the  menu  by 
typing  its  Task  Code  number. 

1.  Acquisitions.  This  option  will  bring  up  ACQUISIT.PRG 
(page  189) ,  for  entering  data  about  new  equipment. 

2.  Process  Disposition  Transaction.  Brings  up 
INPUT_TR . PRG  (page  213) ,  initiating  the  disposition  process 
for  items  now  determined  to  be  excess. 

3.  Disposition  Management.  Brings  up  DISP_MGT.PRG  (page 
221),  which  allows  the  user  to  complete,  update,  or  modify 
records  of  equipment  pending  disposition. 

4.  Ad  Hoc  Requests.  The  user  may  write  short  programs 
(macros)  that  do  specific  tasks  performed  often,  if  desired. 
These  may  be  called  up  via  this  selection. 

6.  TO  GET  OUT:  Enter  the  Task  Code  number  "5"  from  the  PMPS 
Main  Menu,  to  select  "Quit"  and  return  to  the  dBase  III  Plus 
level. 

7.  PROBLEMS /CAVEATS: 

a.  Ideally  dBase  III  Plus  and  this  system  will  all  be 
resident  on  a  hard  disk  under  one  directory. 

b.  You  may  enter  any  character  or  press  any  key  except 
the  <ESC>  key.  If  the  <ESC>  key  is  pressed,  the  following 
message  will  appear: 

*  *  * INTERRUPTED  *  *  * 

Called  from  -  A:pmps.prg 


Cancel,  Ignore,  Suspend? (C, I,  or  S) 


Type  "I"  for  ignore.  If  you  enter  "C"  you  must  begin 
again  from  dBase  III  Plus  (see  TO  RUN:).  If  "S"  is  entered 
you  must  type  "CANCEL"  at  the  "."  prompt  and  start  over. 

c.  No  macro  commands  exist,  for  the  Ad  Hoc  Request 
category.  As  the  user  becomes  more  familiar  with  the  dBase 
III  Plus  command  set,  these  can  be  built  and  inserted  into  an 
ad  hoc  menu. 


Main  Menu 


Task 


Task  Code 


Requisites 

Process  Disposition  Transaction 
Disposition  Management 
Ad  Hoc  Requests 
Quit 


1 

2 

3 

4 

5 


Enter  Task  Code: 


Figure  D.l  PMPS  Main  Menu 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  ACQUISIT.PRG  (Acquisitions) 

2.  PROMPT:  The  Acquisition  Main  Menu  screen  (Figure  D.2). 

3.  PURPOSE:  To  select  subprograms  related  to  acquisition  of 
new  property. 

4.  TO  RUN:  Type  the  Task  Code  number  ”1M  at  the  PMPS  Main 
Menu  (Figure  D.l).  The  screen  shown  in  Figure  D.2  will 
appear . 

5.  TO  USB:  Select  the  desired  option  from  the  menu  by 
typing  its  Task  Code  number. 


ACQUISITIONS  MAIN  MENU 

Task  Task  Code 

Notice  of  Pending 
Receipt  1 

Equipment  Receipt  2 

Reconcile  1342  3 

Print  1342  4 

Modify  1342  5 

Inventory  Piles  6 

Pending  Files  7 

Return  to  Main  Menu  8 

Enter  Task  Code: 


Figure  0.2  Menu  resulting  froa  selection  pf  Main  Menu 
Task  Code  "1” 


1.  Notice  of  Pending  Receipt.  Brings  up  NT_PEN_R.PRG 
(page  191) ,  which  is  used  when  adding  new  property  records 
ordered  but  not  yet  on  hand. 

2.  Equipment  Receipt.  Brings  up  BQ_RBCPT.PRG  (page 
195),  used  when  property  pending  receipt  is  received. 

3.  Reconcile  1342.  Brings  up  MAKE.1342.PRG  (page  198), 
used  to  enter  data  missing  from  the  DD  1342. 
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4.  Print  1342.  Brings  up  PRNT1342.PRG  (page  201) ,  usad 
to  print  a  hard  copy  of  specified  OD  1342  information  on 
blank  paper. 

5.  Modify  1342.  Brings  up  VIEW1342.PRG  (page  203),  used 
to  review  and  make  changes  to  the  data  base  concerning  the 
Form  00  1342. 

6.  Inventory  Files.  Brings  up  INVMENU.PRG  (page  205) 
used  to  query  and/or  print  out  information  about  inventory  on 
hand.  Generally  used  when  conducting  an  inventory. 

7.  Pending  Files.  Brings  up  PENDMENU . PRG  (page  209), 
used  to  query  the  Pending  File. 

6.  TO  GET  OUT:  Type  the  Task  Code  number  n8M  from  the  menu 
to  return  to  the  PMPS  Main  Menu. 

7 .  PROBLEMS /CAVEATS : 

a.  Avoid  using  the  <ESC>  key  and  all  of  the  function 
keys.  Pressing  them  delays  processing. 
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QUICK  BIFEBINCK 


I.  FSOMAM  MAJOl  MT_PIM_B.PBG  (Notice  of  Ponding  Bocoipt) 


3.  PBOMPT:  Mono 

3.  PUBPOSK:  Provides  icroom  allowing  ontry  of  initial  data 
noodod  to  complete  a  f ora  DD  1342. 

4.  TO  BUM:  Typo  the  Task  Codo  nuabor  *1*  at  tho 
Acquisitions  Main  Monu  Figure  0.2.  Tho  scroon  ahown  m 
(Figure  0.3)  will  appear. 

5.  TO  USB:  The  uaor  firat  gota  an  explanatory  message 

(Figure  0.3).  Preaa  any  key  to  continue.  A  acreen  will 
prowpt  for  input. 


This  nodule  lota  foe  eater  data  on  a  new  piece  of 
equipment  that  has  not  Mean  received  yet.  You 
will  he  entering  data  oa  the  next  four  screens  in 
order  to  star  heilding  yoer  MS  1342. 


Figure  D . 3  Screen  resulting  froa  selection  of 
Acquisition  Mam  Menu  Task  Code  "1" 

a.  The  first  acreen  requests  the  MID  number  for  this 
property  (see  QCTNID.PRG.  page  104) . 

b.  Meat  you  are  asked  to  enter  the  pending  status  code 
(Figure  0.4).  For  the  PMPS  program,  this  will  always  be  a 

•P‘  . 


Fending  Status 


•  Flease  enter  a  *F'  in  the  Fending  Status  Field.  * 

•  The  next  screen^will^aj^ar^autonaticallir-^^^* 


Figure  0.4  First  input  screen  in  "Notice  of  Fending 
Receipt" 
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e.  The  screens  shown  in  Figures  D.5  and  D.O  now  follow, 
for  ontry  of  the  rost  of  tho  required  information.  You  simply 
typs  in  tho  appropriate  information.  Tho  arrow  koys  novo  tho 
cursor  from  ono  input  block  to  another.  You  may  back  up  and 
doloto  typos.  Pressing  tho  <ENTER>  key  will  move  tho  cursor 
from  field  to  field.  Tho  arrow  koys  will  also  do  this.  With 
tho  cursor  in  tho  last  field  on  tho  screen,  a  press  of  tho 
<ENTER>  key  will  update  tho  data  base. 


Mf g  Naso 
Noun  Naso 
Hfg  Model  Number 
Property  Code 
Department  Code 

**  Press  <CTKL>  <KMD>  to  save  the  data  you  just  entered.  ** 

Figure  D.5  Second  input  screen  in  "Notice  of  Pending 
Receipt" 


Consignor 
Date  Entered 
Purchase  Order  Number 
Requisition  Number 

**  For  the  Date  Entered,  use  today's  date.  ** 

**  Press  <CTRL>  <END>  to  save  the  data  you  just  entered.  ** 

Figure  D.6  Third  input  screen  in  "Notice  of  Pending 
Receipt" 


0.  TO  OET  OUT?  Move  through  the  screens,  entering  all  the 
information  possible.  The  Acquisitions  Main  Menu  will 
reappear  after  pressing  < CTRL >< END >  for  the  screen  shown  in 
Figure  D.O 

7 .  PROBLEMS /CAVEATS : 

a.  An  entry  of  a  NID  number  already  m  use  gives  a 
siessage  stating  this.  Press  any  key  to  continue  and  try 

again. 
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b.  From  screens  in  Figures  D.5  and  D.6  you  nay  comp lata 
tha  input  process  by: 

-striking  tha  <CTRLXEND>  kays  as  instructad  on  tha 
scraan. 

-filling  in  tha  last  charaetar  in  tha  last  fiald  on  tha 

scraan. 

-striking  <£NTEB>  with  tha  cursor  in  tha  last  fiald  on 
tha  scraan. 

c.  In  tha  first  situation  tha  scraan  will  disappaar;  tha 
Information  will  be  antarad  into  tha  relations,  and  tha 
procass  will  mova  on. 

d.  In  tha  sacond  and  third  situation,  tha  scraan  with 
tha  usar's  information  will  disappaar  and  tha  sama  scraan 
will  raappaar  with  diffarant  information  or  blank  fialds. 
Simply  strika  <PG  UP>  and  tha  pravious  scraan  will  display. 
Tha  information  you  antarad  will  raappaar.  Than  depress  the 
<CTRL> <END>  keys. 

a.  Corract  any  typing  arrors  by  backing  up  using  tha 
arrow  keys  to  position  yourself  on  the  goof;  then  type  the 
corrections . 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  GETNID.PRG  (Get  the  NID  number) 

2 .  PROMPT:  Appears  below. 

Enter  the  NID  nuaber  followed  by  a  <RTN> :  62271- 

3.  PURPOSE:  To  enter  a  NID  number.  This  program  will  then 
check  this  number  for  correctness:  make  sure  there  are  12 
characters  and  that  they  are  all  numbers. 

4.  TO  RUN:  This  program  is  automatically  called  from  other 
programs . 

5.  TO  USEi  Enter  the  12  character  NID  number  at  the  prompt. 

6.  TO  GET  OUT:  Enter  a  valid  NID  number. 

7 .  PROBLEMS/CAVEATS : 

a.  If  the  user  enters  an  invalid  NID  number  (i.e.,  less 
than  12  characters  or  with  alpha  characters)  the  program  will 
loop  until  a  valid  NID  is  entered. 

b.  Correct  typing  errors  by  using  the  arrow  keys  or 
backspace  key  to  move  the  cursor. 


QUICK  BEFEBENCE 


i *  FEOQEAM  KAMI  I  EQ_BECPT . PEG  (Equipment  Receipt) 

3.  PROMPT:  None. 

3.  PURPOSE:  (a)  To  allow  the  user  to  check  property 
information  previously  entered  in  the  data  base  for 
correctness,  (b)  to  add  to  or  change  that  information,  (e) 
to  indicate  that  the  equipment  is  now  on  hand. 

4.  TO  BUN:  Type  the  Task  Code  number  *2*  at  the 
Acquisitions  Main  Menu  (Figure  D.2).  The  screen  shown  in 
Figure  D.7  will  appear. 

5.  TO  USE:  First  the  user  gets  an  explanatory  message 

igure  D.7) .  Press  any  key  to  continue.  Five  screens  will 
prompt  for  input. 


At  this  tiae  you  will  be  requested  to 
compare  the  information  in  the  Pending 
File  to  the  information  on  the  piece 
of  equipment  which  actually  arrived. 

Chtn®#s  in  the 

highlighted  fields. 


Figure  D.7  Screen  resulting  from  selection  of 
Acquisition  Main  Menu  Task  Code  "2* 


«.  The  first  screen  requests  the  HID  number 
property  (see  QETHID.PRG,  page  194). 


for  this 


b.  Next, 
the  statement , 
verification  of 
already. 


you  are  asked  to  enter  the  property  code  with 
'Enter  property  code:'.  This  is  for 
the  code,  as  it  has  been  entered  once 


c.  The  NID  number  and  the  status  are  then  displayed  for 
(Fi«ur«  & . 8 )  .  If  they  are  correct,  press 
<CTBL> <END> .  Otherwise  make  the  correction  first  by  typing 
over  the  incorrect  information.  Pressing  the  <ENTEB>  key 
will  move  the  curser  from  field  to  field.  The  arrow  keys 
will  also  do  this.  With  the  curser  in  the  last  field  on  the 
screen,  a  press  of  the  <ENTEB>  key  will  update  the  data  base. 


MID  Muaber 
Pending  Statue 


62271-111111 

R 


*^6e^sure^the^Pendinj^Status  is  R  * 

Figure  D.8  First  input  screen  in  "Equipment  Receipt” 


4.  The  next  two  screens  let  the  user  verify,  correct  if 
necessary,  and  update  the  information  in  the  data  base  (see 
Figures  0.9  and  D.10).  If  it  is  known,  enter  the 
manufacturer's  serial  number  at  this  time.  Today's  date  may 
be  used  in  the  Date  Received  field. 


Mid  Muaber  62271-111111 

Mfg  Maas  PRODUCTS  SOUTH  OF  THE  BORDER 

Mfg  Serial  Muaber 

Moun  Maae  MODEM,  2400  BAUD 

Mfg  Model  Nuaber  XT-886 

Property  Code  M 

Departaent  Code  EE34 
**  Add  or  change  data  as  needed.  ** 

**  Press  <CTRL>  <EMD>  to  save  the  data.  ** 

Figure  D.9  Second  input  screen  in  "Equipaent  Receipt” 


MID  Nuaber 
Consignor 
Date  Received 
Purchase  Order  Nuaber 
Requisition  Muaber 


62271-111111 

THE  LOCAL  COMPUTER  STORE 

08/02/87 

A3AP-2001 

SOI- 3 2 


**  Be  sure  to  enter  the  Date  Received  in  the  Date  Received  field.  ** 

**  Add  or  change  other  data  as  needed.  »* 

**  Press  < CTRL >< HMD >  to  save  the  data.  ** 

Figure  D.10  Third  input  screen  in  "Equipaent  Receipt” 
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6.  TO  OR  OUT:  Move  through  the  screens,  entering  ell  the 
inforaetion  possible.  The  Acquisitions  Mein  Menu  will 
reeppeers  efter  pressing  <CTRLXEND>  for  the  screen  shown  in 
Figure  D.10 

7 .  PROBLEMS /CAVEATS : 

e.  An  entry  of  e  NID  number  elreedy  in  use  gives  e 
nessege  steting  this.  Press  eny  key  to  continue  end  try 

egein . 

b.  From  screens  in  Figures  D.9  end  D.10  you  mey  complete 
the  input  process  by: 

-•striking  the  <CTRLXEND>  keys  es  instructed  on  the 
screen. 

"filling  in  the  lest  cherecter  in  the  lest  field  on  the 
screen. 

"Striking  <ENTER>  with  the  cursor  in  the  lest  field  on 
the  screen. 

c.  In  the  first  situetion  the  screen  will  diseppeer,  the 
inforaetion  will  be  entered  into  the  reletions,  end  the 
process  will  move  on. 

d.  In  the  second  end  third  situetions,  the  screen  with 
the  user's  inforaetion  will  diseppeer  end  the  seme  screen 
will  resppesr  with  different  inforaetion  or  blenk  fields. 
Simply  strike  <PG  UP>  end  the  previous  screen  will  displey. 
The  inforaetion  you  entered  will  reeppeer.  Then  depress  the 
<CTRLXEND>  keys. 

e.  Correct  eny  typing  errors  by  becking  up,  using  the 
errow  keys  to  position  yourself  on  the  goof;  then  type  the 
corrections . 

f.  If  you  enter  something  other  then  e  "P*  or  "M"  in  the 
Property  Code  field,  the  error  messsge  shown  in  Figure  D.ll 
will  be  displeyed. 


Only  P  or  N  are  acceptable  characters. 
Please  try  again. 


Figure  D.ll  Error  sessage  resulting  fros  entry  of 
illegal  character  into  Property  Code 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  MAKE1342.PRG  (Reconcile  DD  1342) 

2.  PROMPT:  None. 

3.  PURPOSE:  Provides  screens  allowing  entry  of  data  that  is 
missing  from  the  form  DD  1342  for  a  recently  received  item. 

4.  TO  RUN:  Type  the  Task  Code  number  "3"  at  the 
Acquisitions  Main  Menu  (Figure  D.2).  The  screen  shown  in 
Figure  D.12  will  appear. 

5.  TO  USE:  The  user  first  gets  an  explanatory  message 
(Figure  D.12).  Press  any  key  to  continue.  Five  screens  will 
prompt  for  input. 


You  are  now  going  to  enter  the  rest  of  the  data 
needed  for  a  complete  DD  1342.  There  will  be  five 

JP  fill  in.  Remember  to  press 
<CTRL><END>  to  save  the  intonation  entered.  v 


Figure  D.12  First  ?c?een  resulting  fros  selection  of 
Acquisition  Man  Menu  Task  Code  ”3” 


a.  The  first  screen  requests  the  NID  number  for  this 
property  (GETNID.PRG,  page  194). 

b.  Next  you  are  asked  to  fill  in  two  screens  of  . 
information  (Figures  D.13  and  D.14).  Pressing  the  <ENTER> 
key  will  move  the  cursor  from  field  to  field.  The  arrow  keys 
will  also  do  this.  With  the  cursor  in  the  last  field  on  the 
screen,  a  press  of  the  <ENTBR>  key  will  update  the  data  base. 


Commodity  Code 

Ua*th  Mfg  Code 

Mon  Avail  Number  Power  Code 

Width  Height 

Figure  D.13  First  input  screen  for  "Reconcile  1342" 


e.  The  next  screen  requests  the  stock  number.  If  the 
stock  number  is  not  already  in  the  data  base,  you  will  be 
asked  to  enter  a  text  description.  If  the  stock  number 
already  is  in  the  data  base,  you  will  be  asked  to  verify  the 
entry.  The  question,  "Are  you  sure  the  stock  number  is 
correct?  (Y/N) "  will  be  asked.  The  process  will  move  on  to 
the  next  screen  (Figure  D.14)  if  the  entry  is  verified.  If 
it  is  not,  the  message  shown  in  Figure  D.15  will  appear. 


Inventory  Date  /  / 

Julian  Date 
Location 

**  press  <CTRL><END>  to  save  the  data  just  entered.  ** 
Figure  D.14  Second  input  screen  for  "Reconcile  1342” 


This  stock  nuaber  is  already  in  the  data  base. 
Please  check  the  n usher  and  try  again. 

Press  any  key  to  continue. 


Figure  D.15  Error  aessage  resulting  froa  entry  of 
duplicate  Stock  Ifuaber 


6.  TO  GET  OOTs  Move  through  the  screens,  entering  all  the 
information  possible.  The  Acquisitions  Main  Menu  reappears 
after  completing  the  stock  number  entry. 

7.  PROBLEMS /CAVEATS: 

a.  From  screens  in  Figures  D.14  and  D.15  you  may 
complete  the  input  process  by: 

-striking  the  <CTRL><END>  keys  as  instructed  on  the 

screen. 

-filling  in  the  last  character  in  the  last  field  on  the 
screen. 

-striking  <ENTER>  with  the  cursor  in  the  last  field  on 
the  screen. 

b.  In  the  first  situation  the  screen  will  disappear,  the 
information  will  be  entered  into  the  relations,  and  the 
process  will  move  on. 


c.  In  the  second  and  third  situations,  the  screen  with 
the  user's  information  will  disappear  and  the  same  screen 
will  reappear  with  different  information  or  blank  fields. 
Simply  strike  <PG  UP>  and  the  previous  screen  will  display. 
The  information  you  entered  will  reappear.  Then  depress  the 
<CTRLXEND>  keys. 

d.  Correct  any  typing  errors  by  backing  up,  using  the 
arrow  keys  to  position  yourself  on  the  goof;  then  type  the 
corrections . 

e.  Take  great  care  when  entering  and  modifying  the  form 
DD  1342  data  base.  Just  because  something  is  printed  out  by 
a  computer  doesn't  make  it  correct! 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  PRNT1342.PRG  (Print  DD  1342) 

2.  PROMPT:  None. 

3.  PURPOSE:  To  print  a  hard  copy  of  the  information 
contained  in  the  form  DD  1342  on  a  blank  sheet  of  paper,  as 
shown  in  Figure  D.16. 

4.  TO  RUN:  Type  the  Task  Code  number  "4”  at  the 
Acquisitions  Main  Menu  (Figure  D.2) . 

5.  TO  USE: 

a.  A  NID  number  is  requested  on  the  screen  that  appears, 
(see  GETNID.PRG,  page  194) .  Enter  the  NID  number  wanted. 

6.  TO  GET  OUT:  a.  You  may  abort  the  printout  by  shutting 
off  the  printer.  This  is  the  only  way  to  stop,  at  this  time, 
b.  When  the  form  DD  1342  has  printed,  the  message,  "Press 
any  key  to  continue ..."  appears .  Upon  doing  so  the 
Acquisitions  Main  Menu  (Figure  D.2)  will  appear. 

7 .  PROBLEMS /CAVEATS : 

a.  This  program  uses  "join”  commands;  it  takes  some  time 
to  process. 

b.  If  you  enter  an  invalid  NID  number  you  will  get  the 
message,  "Record  does  not  exist." 


DOD  Property  l._X_Active  X  Initial  2. Julian  3. ID/GOVT  Tagt  Forn  Approved 

Record  _ Idle  _ Change  Date  OMB  No.22-R0209 

7302  62271-111113 

Section  1--INVENT0RY  RECORD  Dept: 

4.Coanodity  Code  5. Stock  6.Acqu  Coat  7. Type  8.Yr  of  9.Pwr 

Number  Code  Mfr  Code 

1234  3450.00 


864321 


10. Status  11. SVC  12.Coanand  13. ADM  Office 
Code  Code  Code  Code 

1A  1  W000011  N00228 


14. Mane  of 
Manufacturer 


15.MFR's  ^.Manufacturer's  17. Manufacturer's 

Code  Model  Mo.  Serial  No. 

ST350 


18. Length  19. Width  20. Height  21. Weight  22. Certificate  of  25. Contract  No. 

112  2  14  3.4 

26. Description  and  Capacity 


(this  will  be  physical  description) 


28. Present  Location 

Naval  Postgraduate  School 
No  Street  Address 
Monterey,  CA 

54. Renarks 


fiflhd: 


Location 


29. Possessor 
Code 

62271  (76854350) 


Figure  D.16  DD  1342  printout  resulting  fron  selection  of 
Acquisition  Main  Menu  Task  Code  "4" 


r  ri  ivi  oVt'n 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  VIEW1342.PRG  (Modify  DD  1342) 

2.  PROMPT:  None. 

3.  PURPOSE:  Displays  a  representation  of  a  specific  form  DD 
1342,  for  review  and  correcting,  if  necessary. 

4.  TO  RUN:  Type  the  Task  Code  number  "5"  at  the 
Acquisitions  Main  Menu  (Figure  D.2). 

5.  TO  USE: 

a.  A  NID  number  is  requested  (see  GETNID.PRG,  page  194) . 
Enter  the  NID  number  of  the  record  wanted. 

b.  If  the  user  enters  a  NID  number  which  is  not  in  the 
property  file,  the  message  "Record  does  not  exist."  will 
appear. 

c.  Two  screens  of  information  are  shown  (Figures  D.17 
and  D.18) . 

d.  You  may  make  corrections  as  appropriate  by  typing  over 
current  field  entries;  press  <CTRLXEND>  to  save  the  changes 
and  return  to  Acquisitions  Main  Menu  (Figure  D.2).  Pressing 
the  <ENTER>  key  will  move  the  curser  from  field  to  field. 

The  arrow  keys  will  also  do  this.  With  the  curser  in  the 
last  field  on  the  screen;  a  press  of  the  <ENTER>  key  will 
update  the  data  base. 

6.  TO  GET  OUT:  Press  <CTRL><END>  to  save  changes  and  return 
to  the  Acquisitions  Main  Menu  (Figure  D.2). 

7 .  PROBLEMS /CAVEATS : 

a.  Take  great  care  when  reviewing  and  modifying  the  form 
DD  1342  data  base.  Just  because  it  is  printed  out  from  a 
computer  doesn't  make  it  correct) 

b.  Pressing  any  of  the  following  keys  will  result  in  the 
advancement  to  the  next  screen:  <BSC>,  <PG  UP>,  <PG  DN>, 

< ENTER > ,  <END>,  <HOME> ,  <BACK  SPACE > ,  and  any  one  of  the 
direction  arrows. 


DQD  Property 
Record 


l._X_Active  JTInitial  2. Julian 

Idle  _ Change  Date 

”*  7302 


3 . ID/GOVT  Tag!  Forn  Approved 

0MB  NO.22-R0209 

62271-111113 


Section  1— INVENTORY  RECORD  Dept: 


4. Commodity  Code 
864321 


5. Stock  6.Acqu  Coat  7. Type  8.Yr  of 
Number  Code  Mfr 

1234  3450.00  4  87 


9.  Per 
Code 
PE 


10. Status  11. SVC  12.Comnand  13. ADM  Office 
Code  Code  Code  Code 

1A  1  N000011  N00228 


14. Name  of 

Manufacturer 


15.MFR's  16. Manufacturer’ a  17.Manufacturer’s 
Code  Model  No.  ‘  Serial  No. 

ST350 


Figure  D.17  First  DD  1342  screen  resulting  from  selection  of  Acquisition  Main 
Menu  Task  Code  "5" 


18. Length  19. Width  20. Height  21. Weight  22. Certificate  of  25. Contract  No. 

Non-Avail  No. 


112  2  14  3.4 


26. Description  and  Capacity 


this  will  be  physical  description 


28. Present  Location  Equip.  Location  29. Possessor 

Naval  Postgraduate  School  2134371A  Code 

No  Street  Address  62271  (76854350) 

Monterey,  CA 


Figure  D.18  Second  DD  1342  screen  resulting  from  selection  of  Acquisitions 
Main  Menu  Task  Code  "S" 
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QUICK  REFERENCE 


1.  PROGRAM  NAME:  INVMENU . PRG  (Inventory  Piles) 

2.  PROMPT:  The  Conduct  Inventory  Menu  screen  (Figure  D.19) 

3.  PURPOSE:  Select  subprograms  related  to  the  Inventory 
File  data  base. 

4.  TO  RUN:  Type  the  Task  Code  number  N6M  at  the 
Acquisitions  Main  Menu  (Figure  D.2).  The  screen  shown  in 
Figure  D.19  will  appear. 

5.  TO  USB:  Select  the  desired  option  from  the  menu  by 
typing  its  Task  Code  number. 

1.  Browse/Edit  Inventory  List.  Brings  up  VIEVINV.PRG 
(page  206),  used  to  look  at  and  modify  inventory  records. 

2.  Print  Inventory  List.  Brings  up  PRNTINV . PRG  (page 
208) ,  used  to  print  a  hard  copy  of  a  specific  Inventory  file 

6.  TO  GET  OUT:  Type  the  Task  Code  number  N3N  to  return  to 
the  previous  menu,  that  is.  Acquisitions  Main  Menu  (Figure 
D.2)  . 

7.  PROBLEMS/CAVEATS: 

a.  Avoid  using  the  <BSC>.  key  and  all  of  the  function 
keys.  Pressing  them  delays  processing. 


Conduct  Inventory  Menu 
Task  Task  Code 

Brovse/ldit  Inventory  List  1 

Print  Inventory  List  2 

Return  to  Precious  Menu  3 

Enter  Task  Code: 

figure  D.19  Inventory  Menu  resulting  froa  selection  of 
Acquisition  Main  Menu  Task  Code  "6" 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  VIENINV.PRG  (Browse/Edit  Inventory) 

2.  PROMPT:  None. 

3.  PURPOSE:  To  view  equipment  records  for  a  specific 
department,  inventoried  before  a  specific  cutoff  date,  and 
modify  the  records  if  desired. 

4.  TO  RUN:  Type  the  Task  Code  number  "1"  at  the  Conduct 
Inventory  Menu  (Figure  0.19).  The  screen  shown  in  Figure 
0.20  appears. 

5.  TO  USE: 

a.  Enter  the  inventory  cutoff  date,  MM/DD/YY  and  press 
the  <ENTER>  key.  Date  must  include  slashes  as  shown  in 
Figure  0.20.  Only  items  inventoried  prior  to  this  date  will 
be  called  up. 

b.  Enter  the  department  code.  Upon  entering  the  fourth 
character  of  the  department  code,  processing  will  begin.  The 
code  must  match  the  code  in  the  data  base  exactly. 


Enter  inventory  cutoff  date  (an/dd/yy)  <RTN>:  08/30/87 
Enter  departaent  code  (4-digit)  and  <RTW>:  CSDP 


Figure  0.20  Input  request  resulting  fros  Conduct 
Inventory  Menu  Task  Code  "1" 


c.  The  first  item's  MCD  Inventory  Worksheet  appears  on 
the  screen  (Figure  0.21). 

d.  Modifications  to  the  data  may  be  made  by  typing  over 
the  existing  entries.  Pressing  the  <ENTER>  key  will  move  the 
curser  from  field  to  field.  The  arrow  keys  will  also  do 
this.  With  the  curser  in  the  last  field  on  the  screen,  a 
press  of  the  < ENTER >  key  will  update  the  data  base. 

e.  Press  the  <PG  DN>  key  to  display  the  next  record  for 
that  department  code  inventory. 

€.  TO  GST  OUT:  Page  through  all  records;  after  the  last, 
the  program  automatically  returns  to  the  Conduct  Inventory 
Menu  (Figure  0.19). 


7.  PROBLEMS /CAVEATS : 

a.  An  <ESC>  at  either  prompt  will  produce  Interrupt  (C, 
S,  I)  message;  if  *1*  is  typed  you  will  move  to  the  next 
prompt  or  back  to  the  Conduct  Inventory  Menu  (Figure  D.22). 

If  the  <ENTER>  key  is  pressed  for  either  one  or  both  fields 
shown  in  Figure  D.20,  no  records  are  displayed. 

b.  The  department  code  must  be  entered  exactly  as  listed 
in  the  data  base  or  the  record  will  not  be  selected.  If  the 
data  base  has  some  records  with  a  department  code  as  * AAAA* 
and  other  records  with  the  department  code  of  *aaaa* ,  they 
will  not  both  be  selected  at  the  same  time,  as  there  is  no 
way  to  enter  two  department  codes  at  once. 

c.  You  may  <PG  UP>  or  <PG  DN>  through  the  selected 
records.  Pressing  any  of  the  following  keys  will  result  in 
the  advancement  to  the  next  record:  <ESC>,  <PG  UP> ,  <PG  DN> , 

< ENTER > .  <END> ,  <HOME> ,  (BACK  3PACE> ,  and  any  any  one  of  the 
direction  arrows. 

d.  Correct  typing  errors  by  typing  over  existing 
entries.  Corrections  made  will  be  saved  when  you  move  on  to 
the  next  record. 

e.  Take  great  care  when  reviewing  and  modifying  the 
Inventory  File  data  base.  Just  because  something  is  printed 
out  by  a  computer  doesn’t  make  it  correct! 

MCD  Inventory  Worksheet 
Press  <PgDn>  to  see  the  next  record. 

HID  Mo.  62271-111111 

Last  Inventory  OS/27/86 

Departaent  Code  CSDP 

Equipment  Naae  CLONE,  PC/XT 

Location  of  Equip.  1234213 

Hfg's  Serial  No.  0192-8374 

Mfg*  Code  0X48 

Coaaodity  Code  958473-W 

Stock  No.  1234 

Acquisition  Cost  2134.00 

Mfg  Naae  GONE  TOMORROW  COMPUTERS 


Figure  D.21  Inventory  Worksheet  screen  resulting  froa 
Conduct  Inventory  Menu  Task  Code  "1” 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  PRNTINV . PRG  (Print  Inventory  List) 

2 .  PROMPT :  None . 

3.  PURPOSE:  To  print  a  hard  copy  of  the  equipment  records 
for  a  specific  department,  inventoried  before  a  specific 
cutoff  date. 

4.  TO  RUN:  Type  the  Task  Code  number  ”2"  at  the  Conduct 
Inventory  Menu  (Figure  D.19) . 

5.  TO  USB: 

a.  Enter  the  inventory  cutoff  date,  MM/DD/YY  and  press 

the  <ENTER>  key.  Date  must  include  slashes  as  shown  in 
Figure  0.20.  Only  items  inventoried  prior  to  this  date  will 
be  called  up.  * 

b.  Enter  the  department  code.  Upon  entering  the  fourth 
character  of  the  department  code,  processing  will  begin.  The 
code  must  match  the  code  in  the  data  base  exactly. 

c. '  The  printout  will  be  one  record  per  page,  with  data 
as  shown  in  Figure  D.21. 

6.  TO  GET  OUT:  a.  To  abort  printing,  shut  off  the  printer.  • 
This  is  the  only  thing  that  can  be  done  at  this  time. 

b.  When  the  printing  is  complete.  Conduct  Inventory  Files 
Menu  appears  Figure  D.19)  automatically. 

7 .  PROBLEMS /CAVEATS : 

a.  The  user  must  enter  the  cutoff  date  including  slashes 
or  the  program  will  not  select  any  records. 

b.  The  department  code  must  be  entered  exactly  as  listed 
in  the  data  base  or  the  record  will  not  be  selected.  If  the 
data  base  has  some  records  with  a  department  code  as  "AAAA" 
and  other  records  with  the  department  code  of  Maaaa" ,  they 
will  not  both  be  selected  at  the  same  time  as  there  is  no  way 
to  enter  two  department  codes  at  once. 

c.  Although  the  printer  can  always  be  turned  off  once 
printing  has  commenced,  it  is  suggested  you  .be  sure  of  what 
you  want  before  executing. 
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QUICK  REFERENCE 


1.  PROGRAM  NAMB:  PBNDMENU . PRG  (Pending  Pile) 

2.  PROMPT:  The  Pending  Piles  Menu  screen  (Figure  D.22) . 

3.  PURPOSE :  Select  subprograms  related  to  the  PMPS  Pending 
Equipment  data  base. 

4.  TO  RUN:  Type  the  Task  Code  number  "7"  at  the 
Acquisitions  Main  Menu  (Figure  D.2).  The  screen  shown  in 
Figure  D.22  will  appear. 

5.  TO  USB:  Select  the  desired  option  from  the  menu  by 
typing  its  Task  Code  number. 

1.  Browse/Edit  Pending  File.  Brings  up  VIEWPEND.PRG 
(page  210),  used  to  look  at  and  modify  Pending  File  records. 

2.  Print  Pending  File.  Brings  up  PRNTPEND . PRG  (page 
212) ,  used  print  hard  copy  of  specified  parts  of  the  Pending 
File  records. 

6.  TO  GET  OUT:  Type  the  Task  Code  number  "3"  from  the  menu, 
to  return  to  the  Acquisitions  Main  Menu  (Figure  D.2). 

7.  PROBLEMS /CAVEATS : 

a.  Avoid  using  the  <ESC>  key  and  all  of  the  function 
keys.  Pressing  them  delays  processing. 


PENDING  Files  MENU 

Task  Task  Code 

Browse/Edit  Ponding  Pile  1 

Print  Pending  rile  2 

Return  to  Acquisitions  Main  Menu  3 
Enter  Task  Code: 

rigure  D.22  Pending  riles  Menu  resulting  fros  selection 
of  Acquisition  Main  Menu  Task  Code  "7" 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  VIEWPEND.PRG  (Browsa/Bdit  Pending  File) 

2.  PROMPT:  Shown  below. 

Enter  equipment  status  (P,  R,  I,  or  D  and  <RTM>:  P 

3.  PURPOSE:  To  see  and  change  (if  necessary)  information 
pertaining  to  records  with  a  specific  pending  status  code. 

4.  TO  RUN:  Type  the  Task  Code  number  "l"  at  the  Pending 
File  Menu  (Figure  D.22);  the  prompt  for  equipment  status 
appears . 

5.  TO  USE: 

a.  Enter  the  equipment  pending  status  code  of  the 
records  to  be  examined.  The  most  useful  might  be  those 
pending  receipt  ("R")  and  those  pending  disposition  (nDn). 
Pending  Status  Codes  are: 

P  “  Pending  Receipt 
R  ■  Received 

I  ■  Incomplete  Disposition  Record 
D  ■  Pending  Disposition 

b.  The  first  item's  MCD  Pending  Report  appears  on  the 
screen  (Figure  D.23). 


MCD  Pending  Report 
Press  <PgDn>  to  see  next  record. 


MID  number 
Requisition  number 
Department  Code 
Equipment  name 
Pending  status 
Date  received 
Purchase  order  number 


62271-111111 

SOX-32 

CSDP 

CLONE,  PC/XT 
P 

ASAP-2001 


Figure  D.23  Screen  resulting  from  selection  of  Pending 
Files  Menu  Task  Code  nl” 


e.  Modification*  to  th«  data  may  bt  mad*  by  typing  over 
the  existing  entries.  Pressing  the  <EVTEB>  key  will  move  the 
curser  from  field  to  field.  The  arrow  keys  will  also  do 
this.  With  the  curser  in  the  last  field  on  the  screen,  a 
press  of  the  <EMTER>  key  will  update  the  data  base. 

d.  Press  the  <PG  DM>  key  to  display  the  next  record  for 
that  department  code  inventory. 

e.  Take  great  care  when  reviewing  and  modifying  the 
Inventory  data  base.  Just  because  it  is  printed  out  on 
computer  paper  doesn't  make  it  correct  I 

0.  TO  GET  OUT:  a.  Page  through  all  the  documents;  after 
the  last,  the  program  automatically  returns  to  the  Pending 
File  Menu  (Figure  D.22). 

7.  PROBLEMS /CAVEATS : 

a.  If  the  user  enters  an  ‘R*  to  see  those  records  of 
all  equipment  on  hand,  it  might  take  quite  a  while  to  get 
through  them  all. 

b.  If  you  press  <ESC>  at  the  prompt  for  *P*  or  *R‘  you 
will  get  Interrupt  (C.  S,  I);  if  you  choose  *1*  you  will  get 
all  the  record  in  the  file.  This  will  also  happen  if  you 
press  <ENTER> . 

c.  You  may  <PG  UP>  or  <PG  DN>  through  the  selected 
records.  Pressing  any  of  the  following  keys  will  result  in 
the  advancement  to  the  next  record:  <ESC>,  <PG  UP> ,  <PG  DN> , 
<ENTER> ,  <END> ,  <H0ME> ,  <BACK  SPACE> ,  and  any  any  one  of  the 
direction  arrows. 

d.  Correct  typing  errors  by  typing  over  existing 
entries.  Corrections  made  will  be  saved  when  you  move  on  to 
the  next  record. 


QUICK  REFERENCE 


1.  PROCRAM  NAME:  PRNTPEND . PRG  (Print  Pending  File) 

2.  PROMPT:  Shown  below. 

Inter  equipaent  status  (P ,  R,  I,  or  D  and  <RTN>:  P 

3.  PURPOSE:  To  print  a  hard  copy  of  all  equipment  records 
with  a  specific  pending  status  code. 

4.  TO  RUN:  Type  the  Task  Code  number  n2M  at  the  Pending 
File  Menu  (Figure  D.22);  the  prompt  for  equipment  status 

appears . 

5.  TO  USB: 

a.  Enter  the  equipment  status  code  for  the  records  to 
be  printed.  The  most  useful  might  be  those  pending  receipt 
(”R”)  and  those  pending  disposition  (MDN).  The  status  codes 

are: 

P  ■  Pending  Receipt 
R  *  Received 

I  -  Incomplete  Disposition  Record 
D  -  Pending  Disposition 

b.  The  printout  will  be  one  record  per  page,  with  data 
as  shown  in  Figure  D.23. 

6.  TO  GET  OUT:  When  the  printing  is  complete  the  Pending 
File  Menu  appears. 

7 .  PROBLEMS /CAVEATS : 

a.  If  the  user  enters  an  "R"  to  print  the  records  of  all 
equipment  on  hand,  it  might  take  quite  a  while  to  get  through 
them. 

b.  If  you  press  <ESC>  at  the  prompt  for  "P"  or  "R"  you 
will  get  Interrupt  (C,  S,  I);  if  you  choose  "I”  you  will  get 
all  the  record  in  the  file.  This  will  also  happen  if  you 
press  <ENTER>. 

c.  Although  the  printer  can  always  be  turned  off  once 
printing  has  commenced,  it  is  suggested  you  be  sure  of  what 
you  want  before  executing. 


QUICK  REFERENCE 


1.  PROGAM  NAME: 
Transactions) 

2.  PROMPT:  Non*. 


INPUT.TR. PR6  (Input  Disposition 


3.  PURPOSE:  Initiates  th*  gathering  and  th*  processing  of 
information  about  *quipm*nt  that  is  to  b*  disposed  of. 

4.  TO  RUN:  Type  the  Task  Cod*  number  ‘2*  at  th*  PMPS  Main 
Menu  (Figure  D.l). 

5.  TO  USB: 

a.  Enter  a  *Y*  if  th*  item  being  processed  has  a  NID 
number:  this  brings  in  INPT.EXC.PRG  (page  214).  Follow 
directions . 

b.  Enter  an  *N‘  if  th*  item  does  not  have  a  NID  number. 
You  will  then  be  asked  if  you  leant  to  process  an  item  for 
disposition  that  does  not  have  a  NID  number.  Th*  answer  *Y‘ 
brings  in  OTHEREXC.PRG  (page  217).  Follow  directions. 

c.  Upon  completion  of  INPT.EXC.PRG  or  OTHEREXC.PRG.  th* 
system  gathers  and  processes  necessary  data,  then 
automatically  brings  in  BLD.DPEN.PRG  (page  210)  to  complete 
the  records.  Follow  directions. 

6.  TO  QIT  OUT:  Enter  an  *N*  when  asked  if  you  want  to 
process  another  transaction.  The  PMPS  Main  Menu  (Figure  D.l) 
appears  when  BLD.DPEN.PRG  has  completed  processing.  If  you 
want  to  quit  before  processing  any  transactions,  enter  'N*  to 
every  question. 

7.  PROBLEMS / CAVEATS : 

a.  If  you  do  not  enter  a  *Y*  to  the  Y/N  question  then 
*N*  will  be  assumed. 

b.  If  you  quit  without  having  any  real  input, 
BLD.DPEN.PRG  will  still  execute.  However,  records  will  not 
be  changed. 
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QUICK  REFERENCE 


1.  PROGRAM  NAME:  INPT.EXC.PRG  (Input  Excesses) 

2.  PROMPT:  None. 

3.  PURPOSE:  To  prompt  for  the  basic  information  to  build  a 
"disposition"  record  for  excess  equipment  that  is  described 
in  the  PMPS  data  base. 

4.  TO  RUN:  From  the  Input  Disposition  Transaction  program 
(INPUT_TR.PRG) ,  enter  a  "Y"  to  the  question,  "Do  you  have  a 
NID  number?  (Y/N) . " 

5.  TO  USE:  This  program  automatically  brings  in  GETNID.PRG 
(page  194) . 

a.  Enter  the  NID  number  at  the  prompt,  according  to 
instructions  for  GETNID.PRG.  This  will  bring  up  the  next 
screen.  Figure  D.24. 

b.  Next  enter  the  information  requested,  as  shown  in 
Figure  D.24.  Upon  entering  the  property  code  in  the  last 

.  field,  processing  will  begin.  Pressing  the  <ENTER>  key  will 
move  the  curser  from  field  to  field.  The  arrow  keys  will 
also  do  this.  With  the  curser  in  the  last  field  on  the 
screen,  a  press  of  the  <BNTER>  key  will  update  the  data  base. 


Enter  condition  code: 

Enter  point  of  contact: 

Enter  POC  phone: 

Enter  quantity  of  excess:  0 

Enter  property  code: 

Figure  0.24  First  input  screen  for  requiring  inforaation 
pertaining  to  excess  equipaent  having  a  NID 
nuaber 

c.  If  the  NID  number  is  resident  in  the  data  base  the 
user  will  be  asked  to  verify  the  data  just  entered,  via  the 
screen  shown  in  Figure  D.25.  Don't  worry  about  the  blank 
fields.  The  user  only  should  be  concerned  with  the  data  just 
entered.  The  other  fields  will  be  completed  later.  If  the 
information  is  correct,  press  <ESC>  or  <CTRL><END>.  If  a 
correction  is  made  press  <CTRL>  <END> . 


d.  It  the  NZD  number  has  not  previously  been  entered  in 
the  data  base,  additional  data  should  be  entered,  as  shown 
Figure  D.26. 

6.  TO  GST  OUT:  When  input  screens  shown  have  been 
completed,  processing  will  be  returned  to  INPUT__TR •  PRG  and 
you  will  be  asked  if  you  want  to  process  another  transaction. 


MID  MO 
COMPC  E 
DATOOlT  D 
©ITS  ?i!Jf 
PHASE 
POCK 
POO  MO 

m 


62271-111113 


(blank) 
Alt®  1 
8621 
1 

(blank) 


Figure  D.25  Edit  screen  to  review  and  change,  if 

necessary,  the  inforaation  just  entered 


Additional  Info  is  Necessary 

Enter  cost  of  itea:  0.00 

Enter  year  Manufactured,  if  known: 

Enter  stock  nuaber: 

Enter  Dept,  code: 

Enter  Manufacturer's  Naae: 

Enter  Serial  Nuaber: 

Enter  Itea  Naae: 

Enter  Location,  Bldg: 

Rooa: 

Figure  D.26  Second  input  screen  for  excess  iteas  having 
a  NID  nuaber.  Only  appearing  when  there  is 
no  previous  record  in  the  autoaated  PMPS 


7 .  PROBLEMS /CAVEATS : 

a.  Taka  great  care  when  entering  data  into  these 
screens.  As  this  is  only  a  prototype,  there  are  very  few 
edit  checks  and  limited  egress  once  you  are  asked  to  enter 
data.  You  are  committed  to  all  the  screens  whether  or  not 
you  have  data  to  enter. 


b.  Zf  you  chooae  not  to  ontor  the  data  requested,  the 
data  base  will  have  a  lot  of  blank  apace  and  will  require 
special  attention  fron  the  data  base  adainistrator  (i.e., 
either  filling  in  the  required  infornation  using  the  dBase 
IZZ  Plus  coawand  language  or  deleting  the  inconplete 
records) . 
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QUICK  REFERENCE 


1.  PROGRAM  NAME l  OTHEREXC . PRO  (Other  Excesses) 

2.  PROMPT:  None. 

3.  PURPOSE:  To  Rather  data  and  put  it  in  the  data  base. 

This  data  is  the  minimum  information  necessary  for  processing 
items  for  disposition  when  the  items  are  not  currently  in  the 
PMPS  data  base. 

4.  TO  RUN:  From  the  Input  transaction  program 

( INPUT.TR. PRO) .  enter  *N*  to  the  question,  *Do  you  have  a  NID 
number?  (Y/N) *  (see  PROC.TRN . PRO) . 

5.  TO  USE:  First  an  explanatory  message  appears  (Figure 
D.27).  This  is  followed  by  two  input  screens,  shown  in 
Figures  D.28  and  D.29. 

a.  Type  in  the  requested  information.  Pressing  the 
<ENTER>  key  will  move  the  cursor  from  field  to  field.  The 
arrow  keys  will  also  do  this.  With  the  cursor  in  the  last 
field  on  the  screen,  a  press  of  the  <ENTER>  key  will  update 
the  data  base. 

b.  Complete  every  field,  if  possible.  It  is  essential 
to  complete  the  stock  number . and  the  location  of  the 
equipment. 

0.  TO  GET  OUT:  When  OTHEREXC. PRO  is  completed,  the  system 
automatically  returns  to  INPUT.TR. PRG ,  and  you  will  be  asked 
if  you  have  another  transaction  to  enter. 

7 .  PROBLEMS /CAVEATS : 

a.  If  either  the  stock  number  field  or  the  location 
field  is  blank,  the  user  gets  a  text  reminder  that  these 
entries  must  be  made.  You  can  then  press  any  key  to  continue 
and  the  screen  shown  in  Figure  D.28  will  reappear. 

b.  Take  great  care  when  entering  data  into  these 
screens.  As  this  is  only  a  prototype,  there  are  very  few 
edit  checks  and  limited  egress  once  you  are  asked  to  enter 
data.  You  are  committed  to  all  the  screens  whether  or  not 
you  have  data  to  enter. 

c.  If  you  choose  not  to  enter  the  data  requested  the 
data  base  will  have  a  lot  of  blank  space  and  will  require 
special  attention  from  the  data  base  administrator  (i.e., 
either  filling  in  the  required  information  or  deleting  the 
incomplete  records  using  the  dBase  III  Plus  command 
language) . 


In  the  following  two  screens  enter  es  such  of  the  date 
as  possible.  Since  the  xtens  are  not  Plant  or  Minor 
Property  or  because  they  are  ninor  property  which  was 
not  assigned  a  MID  number,  these  itens  will  be 
identified  within  this  database  by  a  combination  of  the 
date  they  were  entered  and  their  stock  number  in  the  MID 
Number  field. 

Press  any  key  to  continue... 

Figure  D.27  Screen  providing  general  information  as  to 
excess  items  not  having  a  MID  number 


Enter  condition  code: 
Enter  point  of  contact: 
Enter  POC: 

Enter  property  code: 
Enter  stock  number: 
Enter  cost:  0 

Enter  Type  Code: 


Figure  D.28  First  input  screen  pertaining  to  excess 
equipment  not  having  a  MID  number 


Enter  Department  code: 

Enter  manufacture  model  number: 

Enter  manufacture  year: 

Enter  noun  name: 

Enter  manufacturer's  name: 

Enter  serial  number: 

Inter  Item  Quantity:  0 

Figure  D.29  Second  input  screen  pertaining  to  excess 
equipment  not  having  a  NID  number 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  BLD JDPEN . PRG  (Build  Funding  Dispositions 
Fils) 

2.  PROMPT:  Nons. 

3.  PURPOSE:  To  coaplsts  ths  disposition  records  started  in 
INPT.EXC.PRG  (page  214)  or  OTHEREXC . PRG  (page  217). 

4.  TO  RUM:  This  program  is  called  autonatically  upon 
completion  of  INPUT_TR . PRG  (page  213). 

5.  TO  USB: 

a.  You  are  asked  to  verify  the  three  different 
screening  per iods ( i . e . ,  Industrial,  Reutilization,  and  ADPE) . 
Press  <ENTBR>  for  each,  if  correct.  Otherwise,  enter  the  new 
tine  period  in  days. 


Enter  current  IE  screening  period:  90 

Enter  current  Reutilisation  Screening  period:  21 

Enter  current  ADPE  screening  period:  201 


Figure  D.30  Input  ecreen  verifying  the  three  equipnent 
screening  periods 


b.  Toward  the  end  of  processing  it  is  possible  to  get 
three  reports:  (1)  The  Hit  List  Report,  (2)  SF  120  Report, 
and/or  (3)  The  DD  1342  Idle  Report.  Whether  or  not  they  are 
created  depends  on  whether  there  is  any  infornation  to  create 
then  with.  See  Figures  D.31,  D.32,  and  D.16  for  examples. 


Naae 


Bit  List  Roport 

Data  P  C  Dept  Report 

Tars  BID  Ruaber  C  C  Coda  Rusher 


CLONE,  PC/XT 
RODEN,  2400  BAUD 
MICROSCOPE,  ELECTRON 


7243  62271-111111  N  A 
62271-111112  N  A 
62271- 


f  eww 

7263 

7263 


111113  P  A  EE13  N62271 


CSDP  N62271-7242 
2387  N62271-724| 


Figure  D.31  Exsapla  report  identifying  those  itess  available  for  reutilization 


Page  No. 

08731/87 


NID  Nuaber 


Item  to  be  listed  on  SF  120 


Report 

Nuaber 


62271-111118  N62271-7242 

Figure  0.32  Exaaple  report  of  AOPE  iteas  requiring  a  SF  120  be  subaitted 


6*  TO  QIT  OUT l  At  the  conclusion  of  processing  and 

printing,  the  system  automatically  returns  to  the  PMPS  Main 
Menu  (Figure  D.l). 

7 .  PROBLEMS /C AVI ATS : 

Th*  °nly  P°**lbl«  input  for  BLD.DPEN.PRG  xs  the 

of  *crMni«6  periods .  AH  that  is  necessary 

there  is  three  (3)  depressions  of  the  < ENTER >  key,  unless 
these  time  periods  are  changed. 

b.  You  have  no  reason  to  quit  this  program.  If  there 
are  no  records  to  be  processed  the  data  base  will  not  be 
changed . 


t  *  r, i  v 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  DZSP.MGT.PRG  (Disposition  Management) 

2.  PROMPT:  The  Disposition  Management  Menu  screen  (Figure 
D.33) . 


Disposition  Nanageaent  Menu 

Task  Task  Code 

Manage  Status  Pending  File  1 

Modify  Record  2 

Quit  3 

Enter  Task  code: 

Figure  D.33  Disposition  Nanageaent  Menu  resulting  froa 
selection  of  PMPS  Main  Menu  Task  Code  "3" 


3.  PURPOSE:  To  select  subprograms  related  to  the  management 
of  records  for  equipment  that  will  be  disposed  of. 

4.  TO  RUN:  Type  the  Task  Code  number  "3"  at  the  PMPS  Main 
Menu  (Figure  D.l).  The  screen  shown  in  Figure  D.33  will 
appear . 

5.  TO  USE:  Select  tbe  desired  option  from  the  menu  by 
typing  its  Task  code  number. 

1.  Manage  Status  Pending-D  File.  Brings  up  MGTSTAT.PRG 
(page  222) ,  used  for  modifying  and  processing  records  in 
accordance  with  instructions  received  from  various  government 
agencies . 

2.  Modify  Record.  Brings  up  MODREC.PRG  (page  226), 
used  when  it  is  necessary  to  delete  or  change  disposition 
records  and  when  processing  equipment  for  reutilization. 

6.  TO  GET  OUT:  Type  the  Task  Code  number  “3“  from  this  menu 
and  return  to  the  PMPS  Main  Menu  (Figure  D.22). 

7 .  PROBLEMS /CAVEATS : 

a.  Avoid  using  the  <ESC>  key  and  all  of  the  function 
keys.  Pressing  them  delays  processing. 
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QUICK  REFERENCE 


1.  PROGRAM  NAME:  MGTSTAT . PRG  (Manage  Status  in  Pending-D 
File) 

2.  PROMPT:  The  Record  Processing  and  Status  Update  Menu 
(Figure  D.34). 


Record  Processing  &  status  Update 
Task  Task  Code 


Received  DARIC  Instructions 
Received  DIPEC  Instructions 
Process  Teraination  Date 


1 

2 

3 


Return  to  Disposition  Nanageaent  Menu  4 
Enter  Task  Code: 


Figure  D.34  Record  Processing  4  Status  U] 
resulting  Iron  selection  of  1 
Hanagesent  Menu  Task  Code  *1' 


date  Menu 
deposition 


3.  PURPOSE:  To  update  item  status  in  the  racords  of  the 
Pending  Disposition  File  by  selecting  from  a  menu  the 
functions  and  processes  to  be  performed. 

4.  TO  RUN:  Type  the  Task  Code  number  "1"  at  the  Disposition 
Management  Menu  (Figure  D.33). 

5.  TO  USE:  Select  the  desired  option  from  the  menu  by 
typing  its  Task  Code  number. 

1.  Received  DARIC  Instructions. 

a.  Brings  up  GETRPT.PRG  (page  225)  for  entry  and 
verification  of  the  report  number  associated  with  the  item. 
The  report  number  is  a  combination  of  the  UIC  and  the  Julian 
date  on  which  the  item  was  first  declared  excess  (i.e., 
62271-7242) . 

b.  Next  you  are  prompted  for  the  new  automatic 
release  date  (ARD)  and  specific  disposition  instructions 
(Figure  D.35).  The  dates  and  phase  codes  that  appear  on  this 
screen  are  the  current  data  base  entries.  Instructed  action 
and  phase  code  are  synonymous.  Both  fields  may  be  changed  by 
typing  over  what  is  currently  there. 
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For  Mid  nuaber  62271-111113  .... 

Inter  AM  fro*  DIPEC /BARIC  instruction. 
Julian  dnto  format  (YDDD)  7246 


Kntar  instructed  action  (FIASB 


"DL"  or  "DT* 


Figure  D.35  Screen  revealing  a  user  selected  record 


c.  If  you  ere  not  interested  in  that  record  just 
press  the  <BNTBR>  key  twice;  the  fields  will  remain  unchanged 
and  the  next  record  will  appear  or  you  will  be  returned  to 
the  Record  Processing  A  Status  Update  Menu. 

2.  Received  DXPEC  Instructions. 

a.  Brings  up  GETNXD.PRG  (page  194),  for  entry  and 
verification  of  the  NXD  number. 

b.  Next  you  are  prompted  for  the  new  ARD  and 
specific  disposition  instructions  (Figure  0.35).  Return  to 
the  Record  Processing  A  Status  Update  Menu  as  noted  under  1. 
Received  DARIC  Instructions. 

3.  Process  Termination  Date.  Here  the  termination  dates 
are  checked  and  necessary  changes  to  the  phase  field  are  made 
automatically.  Upon  completion  the  Record  Processing  A 
Status  Update  Menu  will  reappear. 

6.  TO  GET  OUT:  Type  the  Task  Code  number  ”4"  to  conclude 
processing  and  view  three  reports:  the  Transfer  Report,  the 
Hold  Report,  and  the  DD  1348-1  Report.  These  are  shown  in 
Figures  0.36,  0.37,  and  0.38'  They  will  first  appear  on  the 
screen.  If  you  want  hard  copy,  press  <SHIFT><PRINT> .  After 
viewing  each  report,  the  Disposition  Management  Menu  will 
appear . 

7.  PROBLEMS /CAVEATS : 

a.  Pay  attention  to  how  the  questions  are  answered. 

Once  a  key. has  been  depressed,  processing  may  begin.  This 
prototype  has  little  in  the  way  of  error  checks  and  escape 
techniques . 

b.  The  three  reports  will  always  be  generated  when 
typing  Task  Code  "4"  to  return  to  the  Record  Processing  A 
Status  Update  Menu. 
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e.  Avoid  using  the  ESC  key  end  ell  of  the  function  keys. 
Pressing  then  deleys  processing. 


Transfer  Report 

Itees  being  transferred  to  other  eilitary  bases. 

09/05/87 

Date  Dept 

P/C  NID  Nusber  Ites  Name  Report  No.  .  Tern  Code 

M  52271  111113  MICROSCOPE,  ELECTRON  N62271-7242  7350  34RM 


Por  hard  copy  press  <SHIFTXPRINT>,  otherwise  any  key  to  continue. 


Figure  D.36  Example  Transfer  Report  as  it  appears  on  the  screen 


Items  For  Local  Disposition 
These  itens  need  a  DD  1348-1  typed. 

09/05/87 


NID  Number  P/C  Stock  No.  Item  Nane  MFR  Ser.  No. 

HFR  Model  No. 

62271  111118  M  4521  Chair,  Reclining 

CH-44 

62271  111149  M  2783  Engine  Mount  273746-029 

NF2-998 


For  hard  copy  press  <SHIFTXPRINT>,  otherwise  any  key  to  continue. 


Figure  D.37  Example  Items  for  Local  Disposition  report  as  it  appears  on 
the  screen 


-  no&u  neport 

Records  of  itens  that  have  been  sent  out,  now  awaiting  a  signed  1348-1  or  1149. 

09/05/87 

Date  Dept 

P/C  NID  Number  Item  Name  Term  Code 

S  KSSfc8Jifl“,ro‘  mi  HN 

e 

For  hard  copy  press  <SHIFTXPR1NT>,  otherwise  any  key  to  continue. 


Figure  0.38  Example  of  a  Bold  Report  as  it  appears  on  the  screen 
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QUICK  REFERENCE 


1.  PROGRAM  NAME:  GETRPT . PRG  (Get  Report  Number) 

2.  PROMPT:  Appears  below. 

later  the  Report  number  followed  by  <RTN>: 62271- _ 

3.  PURPOSE:  To  enter  e  report  number.  This  program  will 
then  check  this  number  for  correctness:  make  sure  there  are 
10  characters  and  that  they  are  all  numbers. 

4.  TO  RUN:  This  program  is  automatically  called  from  other 
programs . 

5.  TO  USB:  Enter  the  10  character  report  number  at  the 
prompt:  the  number  of  the  SP  120  report  declaring  one  or 
several  pieces  of  equipment  excess.  The  number  is  a 
combination  of  the  UIC  and  the  Julian  date  on  which  the  item 
was  first  declared  excess  (e.g.,  62271-7242).  The  first  six 
numbers  are  already  entered  for  your  convenience;  use  the 
arrow  key  to  put  the  cursor  in  the  next  open  position. 

6.  TO  GET  OUT:  Enter  a  valid  report  number. 

7.  PROBLEMS/CAVEATS: 

a.  The  Naval  Postgraduate  School's  UIC  is  hard  coded 
into  the  first  six  characters  and  should  be  left  alone  by 
passing  over  them,  using  the  arrow  keys. 

b.  If  the  user  enters  an  invalid  report  number  (i.e., 
less  than  10  characters  or  with  alpha  characters)  the  program 
will  loop  until  a  valid  report  number  is  entered. 

c.  Correct  typing  errors  by  using  the  arrow  keys  or 
beckspace  key  to  move  the  cursor. 


QUICK  RIFBKBNCB 


1.  PROGRAM  NAME:  MODREC.PRG  (Modify  Record) 

2.  PROMPT:  Nono. 

3.  PURPOSE:  To  select  subprograms  ralatsd  to  ths 
modification  of  records  in  the  Disposition  portion  of  the 

PMPS  data  bass. 

4.  TO  RUM:  Type  ths  Task  Cods  number  ”2"  at  ths  Disposition 
Management  Menu  (Figure  D.33). 

5.  TO  USB:  The  text  message  shown  in  Figure  D.39  appears. 
Press  any  key  to  continue.  The  screen  shown  in  Figure  D.40 
will  appear. 


MODIFICATION  OF  RECORDS 

The  following  screen  will  allow  you  to  delete  records, 
sake  corrections  to  data,  print  a  1342,  or  process 
an  item  for  reutilisatiosu  Processing  the  signed  1149 
(receipt)  and  the  1348-1  froa  DRHO  are  the  sane  thing, 
you  no  longer  have  the  carry  these  iteas  on  the  books. 

Press  any  key  to  continue... 


Figure  D.39  Xnforaation  screen  resulting  froa  selection 
of  Disposition  Ranageaent  Menu  Task  Code  "2" 


Modification  Menu 


Task 


Task  code 


Process  signed  DD  1149  : 

signed  DD  1348-1 


,  __  receipt 
Process  signed  DD  1348-1 
Make  Corrections  to  Data 
Print  DD  1342 
Delete  a  Record 
Process  Itea  for  Reutilization 


1 

2 

3 

4 

5 
€ 


Quit 


7 


Inter  Task  Code: 


Figure  D.40  Menu  screen  resulting  froa  the  selection  of 
Disposition  Manageaent  Menu  Task  Code  ”2” 


1.  Process  signed  DO  1149  Receipt.  Brings  up 
DLST.ptSC.PRg  (pngs  229).  to  deists  a  record  from  this  dots 
boss. 

2.  Process  signed  DD  1349-1.  Brings  up  DLBT JRBC . PRC 
(psgs  229).  to  deists  s  record  Cron  the  dots  base. 

3.  Make  Corrections  to  Oats.  Brings  up  PIX.PATA.PRG 
(page  229).  used  to  modify,  but  not  delete,  disposition 
records . 

4.  Print  DD  1342.  Brings  up  PBNT1342.PKG  (page  201), 
used  to  print  a  hard  copy  of  a  specific  forn  DD  1342 
information,  on  blank  paper. 

5.  Delete  a  kecord.  Brings  up  DLBT.ptPC.PRG  (page  228), 
to  delete  a  record  froa  the  data  bass. 

6.  Process  Xtea  for  Reutilization.  Brings  up 
RKUTXLX2.PRG  (page  232).  used  to  record  the  change  of 
location  of  a  piece  of  equipment  froa  one  departaent  to 
another. 

4.  TO  GST  OUT:  Type  the  Task  Coda  number  "7"  to  return  to 
the  Disposition  Manageaent  Menu  (Figure  D.33). 

7.  PROBLEMS /CAVEATS: 

a.  Task  code  1.  2,  and  5  give  the  sane  results.  Upon 
receiving  a  signed  DD  1348-1  or  a  DD  1149,  the  record 
representing  the  itea  can  be  deleted  from  the  data  base  , 
since  another  organization  has  accepted  custody. 

b.  Avoid  using  the  <ESC>  key  and  all  of  the  function 
keys.  Pressing  thea  delays  processing. 


QUICK  REFERENCE 

1.  PROGRAM  NAME:  DLBT_RBC . PRG  (Delete  a  Record) 

2*  PROMPT:  None. 

3.  PURPOSE:  To  reaove  ell  date  from  the  data  base 
pertaining  to  a  specific  NID  nuaber  for  any  reason  (such  as 
receiving  a  signed  fora  DD  1348-1  or  fora  DD  1149  as  receipt 
of  transfer) . 

4.  TO  RUN:  Type  the  Task  Code  nuabers  "l",  "2",  or  "5n  at 
the  Modification  Menu  (Figure  D.40). 

5.  TO  USB:  The  screen  shown  in  Figure  41  will  appear. 

-  Do  you  hare  a  RID  number  for  the  record  to  be 
deleted  'T1  for  yes  or  for  return  to  Modification 
Menu. 


Figure  D.41  First ^injutfcrssn  resulting .froa. selection 


of  Mod: 
•5* 


[cation  Menu  Task  Codes  "1",  "2",  or 


a.  Enter  a  "Y"  if  the  itea  being  deleted  has  a  NID 
nuaber.  This  brings  in  GBTNID.PRG  (page  194).  Follow  the 
instructions  for  entering  a  NID  nuaber. 

b.  Enter  an  ”R"  if  you  cannot  identify  the  record  with  a 
NID  nuaber.  Entering  an  "R"  returns  you  to  the  Modification 
Menu  (Figure  D.40).  You  cannot  delete  a  record  without  that 
record's  NID_NO  (NID  nuaber)  entry. 

c.  When  the  NID  rnuaber  has  been  entered,  the  prograa 
proceeds  to  delete  all  trace  of  this  record  froa  the  data 
base.  USE  CAUTION! ! 

6.  TO  GBT  OUT:  Type  the  letter  "R"  to  return  Modification 
Menu  (Figure  D.40). 

7 .  PROBLEMS /CAVEATS : 

a.  If  the  NID  nuaber  is  not  known,  use  the  "Make 
Corrections  to  Data”  selection  froa  the  Modification  Menu  to 
search  the  data  base  for  the  record  and  deteraine  the  NID 
nuaber. 

b.  If  you  enter  soaething  other  than  a  "Y"  or  an  "R”  you 
will  get  a  aessage  rewinding  you  that  you  cannot  do  this  and 
ask  you  to  try  again. 


QUICK  RBFBR8NCB 


1.  PROGRAM  NAMB:  FZX_.DATA.PRG  (Corrections  to  D«t«) 

2.  PROMPT:  None. 

3.  PURPOSE:  To  allow  the  user  to  search  the  data  base  for  a 
specific  record  using  either  a  NZD  number  or  a  report  number. 

4.  TO  RUN:  Press  the  number  "3"  at  the  Modification  Menu 
(Figure  D.40) . 

5.  TO  USB:  The  message  shown  in  Figure  D.42  will  appear, 
then  the  menu  shown  in  Figure  D.43.  Select  the  desired 
option  from  the  menu  by  typing  its  Task  Code  number. 


MODIFICATION  OF  RECORDS 

You  will  find  it  far  easier  to  locate. and  correct  existing 
records  if  you  use  the  NID  number  to  locate  then.  This  is 
of  course  not  always  possible.  The  next  best  thing. to  use 
is  the  Report  runner  and  then  list  each  record  having  the 
same  report  number  until  you  find  the  one  you  are  looking 
for. 

Press  any  key  to  continue... 

Figure  D.42  Information  screen  resulting  from  selection  of 
Modification  Menu  Task  Code  3 


Corrections  to  Pending  Disposition  File 
Task  Task  Code 


Using  a  NID  Number 
Using  a  Report  Number 

Return  to  Previous  Menu 

Enter  Task  Code: 


1 

2 


Figure  D.43  Me 
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1.  Using  a  NZO  Number.  Brings  in  GBTNXD.PRG  (page  194) , 
sftsr  displaying  a  short  nsssaga  and  instructions  (Figure 
D.44).  After  entering  the  NZD  number  if  the  record  is  found 
its  information  will  be  displayed  on  the  screen  as  shown  in 
Figure  D.45.  The  user  may  make  whatever  changes  are 
appropriate.  Pressing  the  < ENTER >  key  will  move  the  curser 
from  field  to  field.  The  arrow  keys  will  also  do  this.  With 
the  curser  in  the  last  field  on  the  screen,  a  press  of  the 
< ENTER >  key  will  update  the  data  base  and  the  user  is 
returned  to  the  Correction  to  Pending  Disposition  File  Menu 
(Figure  D.43) . 


Bake  whatever  changes  are  appropriate  to  the  record  that 
appears  on  the  screen.  Be  sure  to  verify  that  the  KID 

ISCJiifd  th* 

Pr>*ss  any  key  to  continue... 

Figure  0.44  Inforaation  screen  resulting  froa  selection  of 
Corrections  to  Pending  Disposition  Pile  Menu 
Task  Codes  N1M  and  "2* 


Disposition  tecord  for  MID  62271-111113 

Manufacturer's  Maae:  CADILLAC  EQUIPMENT 

Mfr's  Serial  Nuaber:  1727374855-VP-8 

I tea  Noun  Maae:  MICROSCOPE,  ELECTRON 

Mfr's  Model  Nuaber:  X550 

Property  Code:  P 

Departaent  Code:  EE13 

Tear  Manufactured:  86 

Stock  Rusher:  8897 

Type  Code:  1 

Cost  at  Purchase:  12744S64.00 

Condition  Corf.*:  A 

Date, Entered  Dispositions:  08/12/87 

Teraination  Date:  7350 

Phase  Code:  DTE 

Point  of  Contact:  LIMD,  J.  B. 

POC  Phone  Nuaber:  9191 
Quantity  Excess:  1 

Report  Nuaber:  62271-7242 
Status  of  Record:  D 


Figure  D.45  Edit  screen  allowing  corrections  to  the 
Pending  Disposition  File 


2.  Using  a  Report  Number.  Brings  in  GETRPT . PRG  (page 
225).  There  may  be  more  than  one  record  per  report  number. 

If  so,  answer  "Y"  to  the  question,  "Would  you  like  to  look  at 


another  record  which  nay  have  the  sane  report  nunber?  (Y/N) ” 
You  nust  then  page  through  the  records  with  that  report 
nunber  to  find  the  records  of  interest.  If  there  are  no 
others  with  that  nunber,  you  will  be  asked,  "Want  to  look  at 
a  different  report  #?  (Y/N)"  Answer  "N",  to  return  to  the 
Corrections  to  Pending  Disposition  File  Menu  (Figure  D.43). 

6.  TO  GET  OUT:  a.  Type  the  Task  Code  nunber  "3"  at  the 
Corrections  to  Pending  File  Menu  (Figure  D.43).  b.  Answer 
"M"  to  the  question,  "Want  to  look  at  a  different  report  #? 
(Y/N) ." 

7 .  PROBLEMS /CAVEATS : 

a.  It  is  strongly  recomnended  that  you  know  exactly  what 
record  you  are  looking  for  and  what  in  it  you  want  to  fix. 

b.  It  is  possible  that  you  will  be  using  this  program  to 
find  a  particular  NID  nunber  for  a  specific  report  nunber. 

In  this  case,  use  only  the  < ENTER >  or  the  down  arrow  keys  to 
move  from  one  field  to  the  next. 


QUICK  REFERENCE 


1.  PROGRAM  NAME:  REUTILXZ.PRG  (Reutilizations) 

2.  PROMPT:  None. 

3.  PURPOSE:  To  identify  the  data  base  record  of  the 
equipment  that  is  being  reutilized  by  another  department,  to 
change  the  location  of  the  equipment  within  the  data  base, 
and  to  remove  the  record  from  the  Pending  Dispositions  File. 

4.  TO  RUN:  Type  the  Task  Code  number  N6H  at  the 
Modification  Menu  (figure  D.40) . 

5.  TO  USB:  You  are  first  asked  if  you  have  a  NID  number. 

a.  If  you  have  a  NID  number  for  the  item  to  be  reused, 
enter  the  NID  number  at  the  prompt  (GETNID.PRG  page  194) . 

Then  enter  the  new  department  code,  building  number,  and  room 
number  at  the  input  screen  shown  in  Figure  D.46. 


Enter  nee  Department  Code: 
Enter  nee  Building  Nunber: 
Enter  nee  Room  Nunber: 


Figure  D.46  Input  screen  soliciting  update  information  for 
a  specific  record  of  an  itea  to  be  reutilized 


b.  If  the  NID  number  you  entered  is  not  found  in  the 
property  file,  the  message,  "NID  does  not  exist  in  Property 
file."  will  appear.  Then  the  user  will  be  asked  again  if 
there  is  a  NID  number  for  the  item  to  be  reused. 

c.  If  the  answer  is  "N”  to  the  above  question, 
GETRPT.PRG  (page  225)  is  brought  in.  A  record  will  be 
displayed  and  the  question  asking,  "Is  this  the  record  you 
are  looking  for?  (Y/N)"  If  the  answer  is  ”Y”,  the  user  will 
be  asked  to  enter  the  new  department  code,  building  number, 
and  room  number  (Figure  D.46).  Then  the  next  record  will  be 
displayed,  and  so  on. 

d.  If  the  record  being  displayed  is  not  the  record 
desired,  answer  "N"  to  the  question  above;  the  next  record 
can  be  called  if  it  has  the  same  report  number. 


•.  When  all  the  records  having  the  same  report  number 
have  been  displayed,  the  message,  "You  have  reached  the  end 
of  the  file..."  will  appear.  Press  any  key  and  return  to  the 
Modification  Menu  (Figure  D.40). 

f.  If  the  report  number  is  not  found,  a  message  will 
say,  "Record  does  not  exist  in  Pending  Dispositions."  Press 
any  key  to  return  to  the  Modification  Menu  (Figure  D.40) . 

€.  TO  GET  OUT:  Type  an  "R"  at  the  question,  "Do  you  have  a 
NID  number  for  the  item  to  be  reused?",  to  return  to  the 
Modifications  Menu  (Figure  D.40). 

7 .  PROBLEMS /CAVEATS : 

a.  It  is  possible  for  the  user  to  enter  a  blank  by  just 
pressing  the  <BNTBR>  key.  If  this  is  done  it  can  have 
disastrous  effects  on  the  data  base.  Please  be  careful  not 
to  let  this  happen. 
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